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Accelerator Ile macht 
Ihren Apple® Il, II Plus oder Ile 
dreieinhalbmal schneller. 
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Jetzt laufen VisiCalc®, Apple Writer, PASCAL, BASIC, 
Datenbanken usw. endlich ohne langen Zeitverlust. 
Stecken Sie einfach die ACCELERAÄTOR Ile Karte 
in irgendeinen Slot und beobachten Sie, 
wir Ihr Apple loslegt! 

ACCELERATOR Ile besitzt seinen eigenen schnellen 
6502 Prozessor und 80 K-Byte Hochgeschwindigkeits- 
speicher, einschließlich einer eingebauten schnellen 
Sprachkarte und schnellem RAM-Speicherplatz für die 
ROM-Sprache. 

Direkt von Pandasoft (Titan Distributor für Deutschland) 
oder bei Ihrem Applehändler. 


pPanday®ftı..ı.. : 


Uhlandstraße 195 - 1000 Berlin 12 - Mo-Fr 10-18 Uhr, Sa 10-13 Uhr 
Telefon: 0 30/31 04 23 - Telex: 185859 


© ln 2 Druckerinterfaces für Apple I+/e/ 
Printer Interface c/lli Interfaces auf dem neuesten 

| Stand der Technik. Kompatibel mit allen gängigen Druckern wie: 

APPLE, EPSON, STAR, NEC, OKIDATA usw. Passende Treiber- 


| software wird über Dip-Switch ausgewählt. 


Grappler «fe Grafikfähiges Druckerinterface 
Printer Interface 


das keine Wünsche mehr offen läßt. 
Über 2 Dutzend Kommandos ermSglichen: die volle Kontrolle 
über alle Möglichkeiten Ihres Pr : 
Druckers. Jetzt auch mit 
lle Features: Double Hires 
Grafics und 80 Zeichen Dump 
mittels Druckerpuffer nachrüstbar | 
über Bufferboard. 


Grappler + 


ten 16 K Druckpuffer, der auf 
32 oder 64. K aufrüstbar ist. 


Besitzt alle Vorzüge des Gräppler =}; 
hat aber zusätzlich einen integrier- 
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SERIAL Serielles Druckerinterface 
Grappler speziell für den Apple Image- 
Printer Interface 


writer. 
Mlorumk 
ie Hotlink, jedoch ätzlich 
KRRAPPLER C Imagewriter Emulation und Grafik 


Software-Diskette. 


panday®ft Dr.-Ing. Eden 


Uhlandstraße 195 - 1000 Berlin 12 : Mo-Fr 10-18 Uhr, Sa 10-13 Uhr 
Telefon: 0 30/31 04 23 - Telex: 185859 


Seriell-nach-Parallel-Wandler für 
den IIc im Kabel integriert. 


ThunderScan.” 


Ein neues optisches Lesegerät, das beliebige 
Vorlagen in MacPaint überträgt: Fotos, Zeich- 
nungen, Landkarten und Illustrationen werden 
in den Apple-Imagewriter eingespannt und von 
einem Lesekopf, der das Farbband ersetzt, 
abgetastet. 


% File Edit Scanner Tools 


Conirast = I 107 
D 


Brighiness = +10 


4 
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Linestogo 186 


® 32 Graustufen 

@ 30 Punkte/cm Auflösung 

® Übertragungsmaßstab 25% - 400 % 

@ Vorlagenbis 20 x25cm 

® Nachträgliche Veränderung des Kontrasts 
und der Helligkeit. 


Panday®ftı:.. :-- 


Uhlandstraße 195 - 1000 Berlin 12 - Mo-Fr 10-18 Uhr, Sa 10-13 Uhr 
Telefon: 0 30/31 04 23 - Telex: 185 859 


Thunder Scan 


und die 
Hardware... 


wir haben die 
Software... 


Fu er 
Pania, 
[alt 


A cHEsS 


wir haben die 
Bücher... 


ALLES FÜR DEN APPLE II+, Ile, Ilc UND MACINTOSH 


eg -Ing. >= co 


UHLANDSTRA. 1956 - D- 1000 BERLIN 12 
TEL.(O30] 310 423 - TELEX:185853 
Autathgiterter pnede Fachhamdier MeBosuen. Ontbaktor 








Ein Jahr Peeker 


Mit dem vorliegenden September-Heft 
jahrt sich das Erscheinen des Peekers, ein 
gebotener Anlaß, um über das Erreichte 
zu reflektieren. Als wir den Peeker im Sep- 
tember des letzten Jahres gründeten, war 
uns klar, daß der Leser zunehmend auf 
Kritische Berichte und sorgfältig redigierte 
Programme Wert legt: 

Was die kritischen Berichte anlangt, so 
geht es im Mikrocomputer-Blätterwald ge- 
legentlich zu wie im Opportunitätsjourna- 
lismus: Einige Kleinigkeiten werden be- 
mängelt, aber im übrigen erstrahlt das Pro- 
dukt im hellsten Sonnenschein. Als wäre 
jede Hardware ein Spitzenerzeugnis! Als 
wäre jede Software eine ingeniöse Schöp- 
fung! Schönfärbereien dieser Art haben 
wir nie zugelassen. 

Was die Überarbeitung von Programmen 
betrifft, so lesen wir in H. Feichtingers 
„Arbeitsbuch Mikrocomputer“: „Es gibt 
tatsächlich Zeitschriften, die Programme 
vor dem Abdruck testen!“ Da kann man 
nur sagen: Und nicht nur das! Jedes 
Peeker-Programm wird überarbeitet, oft- 
mals von dem einen Assembler in den 
anderen umgeschrieben, vereinheitlicht 
und in eine lesbare Form gegossen. Au- 
Berdem ist der Peeker wohl die einzige 
Zeitschrift, in der „alle“ Programme im 
modernen Lichtsatz gesetzt werden, so 
daß ein Listing, das bei manch einer Zeit- 
schrift eine ganze Druckseite einnimmt, 
beim Peeker auf einer halben Seite Platz 
findet. 

Unbefriedigend ist nach wie vor die Termi- 
nologie und die Fehlerlosigkeit der Pro- 
gramme: 

Der Peeker kann sich nicht zum Vorreiter 
einer Sprachbereinigung machen. Heißt 
es z.B. „der oder die oder das File/Ar- 
ray?" Jeder bastelt sich offenbar sein ei- 
genes EDV-Chinesisch zusammen. Ent- 
scheiden Sie sich spaßeshalber selbst 
einmal für das „richtige“ Genus und 
schlagen Sie dann beispielsweise bei Ni- 
klaus Wirths „Algorithmen und 
Datenstrukturen“, S, 50 und 60 nach. Sie 
werden überrascht sein! 

Tippfehler in den Listings und Bugs in den 
Programmen werden sich wohl nie völlig 
ausmerzen lassen. Schon allein aus zeitli- 
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chen Gründen sehen wir uns leider außer- 
stande, die Aufsätze und Programme der- 
art akribisch zu durchleuchten, daß kein 
Schnitzer mehr stehenbleibt. Perfektionis- 
mus bleibt somit ein unerfüllbarer Traum. 


Kurzumfrage 

Die letztjährige September-Ausgabe ent- 
hielt eine Kurzumfrage in Form einer Post- 
karte (s. a. Trennkarton in „dieser“ Ausga- 
be, S. 45), die über 4500 Leser ausfüllten. 
Damals ergaben sich bezüglich der Gerä- 
teverteilung folgende Prozentsätze: Ilc 
(3,1%) le 295%), II+ 80,1%), Kon- 
patible (32,3 %), Macintosh (1,3 %): 
Apple Ill, Lisa u. a. Geräte zusammen ca. 
1%. Inzwischen hat sich die Apple-Szene 
völlig verändert: Der Apple Ill und die Lisa 
wurden aus der Produktion genommen. 
Der Macintosh hat sich bislang nicht 
durchgesetzt mit der Folge, daß ein Teil 
der ehemaligen Apple-Il-Besitzer, die ein 
Gerät der höheren Leistungs- und Preis- 
Kategorie erwerben wollen, abzuwandern 
beginnen, weil das Nachfolgemodell zu 
dem Apple II immer noch auf sich warten 
läßt. 

Auch dieses September-Heft enthält wie- 
der eine Umfrage, die u. a. die Rubrik „Ich 
besitze zusätzlich folgenden Nicht-Apple- 
Computer“ aufweist. Sollte hier ein be- 
stimmtes Fremdgerät sehr häufig genannt 
werden, so werden wir zu überlegen ha- 
ben, ob wir dieses Gerät in Zukunft ange- 
messen berücksichtigen (z.B. 4 Seiten 
pro Heft). Wir bitten Sie, liebe Peeker- 
Leser, uns die Umfrage-Karte zuzusen- 
den, denn damit haben Sie selbst Einfluß 
auf die Themenverteilung. 


Yun ER 


Ulrich Stiehl 
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1. Kopieren, Zitieren und 
Bearbeiten 


Im Peeker, Heft 4/1985 hatten wir uns 
bereits mit dem Thema „Software und Ko- 
pierrecht“ auseinandergesetzt. Der nach- 
folgende Beitrag knüpft daran an und be- 
handelt den erheblich diffizileren Themen- 
komplex des Zitatrechts unter Einbezie- 
hung der Bereiche der Bearbeitung und 
freien Benutzung. 


Kopieren heißt im Juristendeutsch „Ver- 
vielfältigen“ (UrhG 853; UrhG = Urheber- 
rechtsgesetz). In der EDV bedeutet dies 
ein Überspielen, d.h. ein Verdoppeln oder 
Eins-zu-eins-Reproduzieren eines Com- 
puterwerkes (= Programms). Der Beariff 
der Eins-zu-eins-Reproduktion impliziert, 
daß das Programm erstens vollständig und 
zweitens unverändert kopiert wird. Eine 
(unvollständige) Teilkopie ist möglich, 
kommt jedoch in der Praxis kaum vor. 
Dagegen ist es denkbar, daß nach der 
Herstellung einer Kopie an ihr Änderun- 
gen („Patches“) vorgenommen werden. 
Sehen wir von diesen Sonderfällen ab, so 
können wir festhalten, daß man unter Ko- 
pieren üblicherweise das vollständige und 
unveränderte Vervielfältigen eines Origi- 
nalwerkstücks versteht. 


Zitieren bedeutet demgegenüber in der 
EDV die Übernahme eines Fremdpro- 
gramms in ein eigenes Programm. Der 
Regelfall ist das sog. Kleinzitat, d.h. die 
Übernahme eines Teils eines Fremdpro- 
gramms in ein eigenes Programm. Nur 
selten stößt man auf ein sog. Großzitat, 
d.h. die Übernahme eines vollständigen 
Programms in ein eigenes. Während ein 
kopiertes Originalwerk nach erfolgter Ko- 
pie ein Werkstück für sich darstellt, bewirkt 
das Zitat stets eine Einverleibung einer 
„Stelle“ aus einem fremden Werk in ein 
eigenes Werk. Normalerweise wird eine 
Stelle unverändert unter Nennung des 
Werktitels und Urhebers wiedergegeben, 
um den urheberrechtlichen Grundregeln 
über das Änderungsverbot (UrhG 853) 
und die Quellenangabe (UrhG 863) Rech- 
nung zu tragen. Oft findet man jedoch 
auch veränderte Stellen und/oder unge- 
nügende oder fehlende Quellenangaben. 
Ein literarisches Paradebeispiel ist 
Goethes Werk, dessen zahlreiche obsz6- 
ne Passagen entweder bereinigt („pur- 
giert“) oder als „— -— -“ zitiert werden (s. 
z.B. Faust, Walpurgisnacht usw.). Wenn 
man die Quellenangabe „zu erwähnen 
vergißt", liegt meist ein Plagiat vor (plagia- 
re = fremdes geistiges Eigentum rauben; 
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danach plaglieren, Plagiat; plaglator und 
plagiarius = Räuber fremden geistigen Ei- 
gentums; danach Plagiator). 


Neben dem Zitat gibt es noch die Möglich- 
keit der mehr oder weniger engen Aus- 
richtung an einem fremden Werk. Hier 
spricht man dann von der zustimmungs- 
pflichtigen Bearbeitung, die sich an eine 
Fremdvorlage eng anlehnt (UrhG 823), so- 
wie von der nicht-zustimmungspflichtigen 
freien Benutzung, die die Fremavorlage 
nur als Anregung nimmt (UrhG 824). 

Wenn man die diversen Spielarten von der 
freien Benutzung über die Bearbeitung 
und die modifizierten Zitate mit und ohne 
Quellenangabe bis zu den wörtlichen, ex- 
akten Zitaten Revue passieren läßt, wird 
offenbar, daß das Zitatrecht erheblich 
komplizierter und undurchsichtiger als das 
Kopierrecht ist, denn im Kopierrecht 
braucht man zur Ermittlung eines (Straf-) 
tatbestandes in der Regel nur Gleiches mit 
Gleichem zu vergleichen, während im Zi- 
tatrecht oft Gleiches mit Ähnlichem oder 
Ungleichem verglichen werden muß. 


2. Das begriffliche Gerippe 


Nachfolgend zitieren wir aus dem Urheber- 
rechtsgesetz die relevanten Paragraphen: 
UrhG 813 Anerkennung der Urheber- 
schaft: Der Urheber hat das Recht auf 
Anerkennung seiner Urheberschaft am 
Werk... 

UrhG 823 Bearbeitungen und Umgestal- 
tungen: Bearbeitungen oder andere Um- 
gestaltungen des Werkes dürfen nur mit 
Einwilligung des Urhebers des bearbeite- 
ten oder umgestalteten Werkes veröffent- 
licht oder verwertet werden... 

UrhG 824 Freie Benutzung: Ein selbstän- 
diges Werk, das in freier Benutzung des 
Werkes eines anderen geschaffen worden 
ist, darf ohne Zustimmung des Urhebers 
des benutzten Werkes veröffentlicht und 
verwertet werden.... 

UrhG 851 Zitate: Zulässig ist die Verviel- 
fältigung, Verbreitung und Öffentliche Wie- 
dergabe, wenn in einem durch den Zweck 
gebotenen Umfang 


1. einzelne Werke nach dem Erscheinen in 
ein selbständiges wissenschaftliches 
Werk zur Erläuterung des Inhalts aufge- 
nommen werden, 

2. Stellen eines Werkes nach der Veröf- 
fentlichung in einem selbständigen 
Sprachwerk angeführt werden... 

UrhG 862 Änderungsverbot: (1) Soweit 
nach den Bestimmungen dieses Ab- 
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schnitts die Benutzung eines Werkes zu- 
lässig ist, dürfen Änderungen an dem 
Werk nicht vorgenommen werden... 

UrhG 863 Quellenangabe: (1) Wenn ein 
Werk oder ein Teil eines Werkes in den 
Fällen des ...851... vervielfältigt wird, ist 
stets die Quelle deutlich anzugeben... 
UrhG 8106 Unerlaubte Verwertung ur- 
heberrechtlich geschützter Werke: Wer in 
anderen als den gesetzlich zugelassenen 
Fällen vorsätzlich ohne Einwilligung des 
Berechtigten ein Werk oder eine Bearbei- 
tung oder Umgestaltung eines Werkes 
vervielfältigt, verbreitet oder Öffentlich wie- 
dergibt, wird mit Geldstrafe oder mit Ge- 
fängnis bis zu einem Jahr bestraft. 


Die in den Paragraphen erwähnten Begrif- 
fe lassen sich folgendermaßen definieren: 
Eine Bearbeitung ist ein selbständiges 
Werk, das sich an ein anderes Werk stark 
anlehnt. Typische Beispiele für Bearbei- 
tungen sind Übersetzungen (von Büchern 
in andere Sprachen), Vertonungen, Dra- 
matisierungen und Verfilmungen (im UrhG 
gesondert geregelt). Die Bearbeitung setzt 
die vorherige Zustimmung = Einwilligung 
des Urhebers voraus. 

Bearbeitungen von Computerwerken 
könnten Übersetzungen sein, doch ist mir 
hierzu keine Rechtsprechung bekannt. Bei 
natürlichen Sprachen gibt es bekanntlich 
unkomplizierte Übersetzungen (z.B. aus 
dem Englischen ins Deutsche) und kom- 
plizierte Übersetzungen (z.B. aus dem 
Sanskrit ins Chinesische). Ähnlich gibt es 
bei den Computersprachen leichte (z.B. 
von BASIC in Pascal oder vom Quellcode 
in den Objektcode) und schwere Überset- 
zungen (z.B. von BASIC in Assembler 
oder vom Objektcode in den Quellcode). 
Der Schwierigkeitsgrad kann also nicht als 
Richtschnur dienen. Dieser ganze Kom- 
plex ist offenbar noch nicht in der Rechtsli- 
teratur durchdiskutiert worden. 


Eine freie Benutzung ist ein selbständi- 
ges Werk, das sich an ein anderes Werk 
schwach anlehnt. Typische literarische 
Beispiele sind die Travestie und Parodie, 
die beide Satiren auf ein Originalwerk dar- 
stellen. Bei der freien Benutzung ist die 
Zustimmung des Urhebers des Original- 
werkes nicht erforderlich. 

In der EDV würde eine freie Benutzung 
dann vorliegen, wenn man z.B. eine in 
BASIC geschriebene Sortierroutine zum 
Anlaß nimmt, um eine eigene Routine et- 
wa in Pascal oder Assembler zu erstellen. 


Ein Zitat ist die Übernahme eines kom- 
pletten fremden Werkes oder eines Teils 


eines fremden Werkes in ein eigenes 
Werk. Das Zitat muß exakt, d.h. bei Schrift- 
werken wörtlich sein (Änderungsverbot). 
Außerdem muß stets die Quelle (Urheber- 
und Werkname) angegeben werden. Wie 
bei der freien Benutzung ist auch hier die 
Zustimmung des Urhebers des Original- 
werkes nicht erforderlich. 


Das Großzitat eines kompletten vollständi- 
gen Werkes setzt die Quellenangabe mit 
Verlagsangabe sowie das Erscheinen des 
fremden Werkes voraus. Ferner sind 
Großzitate nur in wissenschaftlichen 
(Sprach)werken zulässig, zu denen auch 
die Computerwerke gehören. Bild- und 
Musikzitate rechnet man in der Regel zu 
den Großzitaten (von Bedeutung bei Com- 
puterspielen). 


Ein Großzitat läge z.B. dann vor, wenn 
man in einem Buch über ein Betriebssy- 
stem (etwa ProDOS) neben einer allge- 
meinen Beschreibung eine Kommentie- 
rung des ggf. zuvor disassemblierten 
Quellcodes vornähme (s. z.B. „ProDOS- 
Analyse“ von A, Schäpers). 


Das Kleinzitat eines Teils eines fremden 
Werkes (= einer Stelle) setzt die Veröf- 
fentlichung des fremden Werkes voraus. 
Kleinzitate sind auch in nichtwissenschaft- 
lichen Sprachwerken möglich. 
Beispielsweise enthält das Kopierpro- 
gramm in meinem ProDOS-Buch, Band 2, 
die Formatierungsroutine aus dem Pro- 
DOS-FILER als Kleinzitat. 


Das Plagiat ist die bewußte Aneignung 
fremden Geistesgutes, d.h. praktisch ein 
verändertes oder unverändertes Zitat, bei 
dem man die Quellenangabe „zufällig ver- 
gessen hat“. Dies ist stets unzulässig. In 
der Regel zulässige, wenngleich oft ver- 
pönte Spezialformen des Plagiats sind 

1. das Zitat aus einem gemeinfreien (= 
nicht mehr geschützten) Werk ohne Quel- 
lenangabe; 

2. das Zitat aus einem eigenen Werk (= 
Selbstplagiat); 

3. das unbewußte Zitat infolge eines „ei- 
detischen Gedächtnisses”; 

4. die unbewußte Doppel- oder Parallel- 
schöpfung. 


Bei Büchern, Zeitschriften und Quellcodes 
kann man problemlos die Quellenangaben 
deutlich vermerken. Beim Objektcode 
kann die Quellenangabe entfallen, wenn 
der Quellcode mitgeliefert wird. Ändern- 
falls muB man ihn im Objektcode selbst 
unterbringen. Bis zum heutigen Tage habe 
ich allerdings noch niemals eine Quellen- 
angabe in einem Objektcode gesehen, 
was wohl nicht gerade auf ein ausgepräg- 


tes Rechtsbewußtsein bei Programmie- 
rern schließen läßt. 


3. Das „geplagte“ Plagiat 


Das Kernproblem des Zitatrechts sind 
nicht die korrekten Kleinzitate, sondern die 
Zitate ohne Quellenangaben sowie die 
mehr oder weniger stark angelehnten Be- 
arbeitungen von bereits vorliegenden 
Werken anderer Autoren. Nehmen wir ein- 
mal an, daß wir in einer Bücherstube ein 
Lyrikbändchen aufschlagen und dabei zu- 
fällig auf ein Gedicht stoßen, das so be- 
ginnt: 


1 Über allen Bergen 
2 ist Ruh, 

3 in allen Särgen 

4 hörest du 

> kaum einen Laut... 


Nach dem ersten Durchlesen beginnt man 
zu stutzen, beim zweiten Durchlesen 
kommt dann das Deja-vu-Erlebnis: Irgend- 
wo habe ich dies doch schon einmal gese- 
hen! Jetzt kommt das Aha-Erlebnis und 
man merkt, daß es sich hierbei um eine 
Verballhornung eines Goethe-Gedichtes 
handelt, das im Original so beginnt: 


1 Über allen Gipfeln 

2 ist Ruh, 

3 in allen Wipfeln 

4 spürest du 

5 kaum einen Hauch... 


Offenkundig handelt es sich weder um 
ein korrektes, wörtliches Zitatnoch um ein 
für den Schulgebrauch („ad usum Delphi- 
ni”) bereinigtes Gedicht. Somit bleibt nur 
noch entweder die einwilligungspflichtige 
Bearbeitung oder die zustimmungsfreie 
Benutzung. Die Zeile 2 („ist Ruh“) ist bei 
beiden Gedichten identisch, doch sind 
weder „ist“ noch „Ruh“ für sich noch 
deren Kombination schutzfähig. Alle ande- 
ren Zeilen unterscheiden sich in minde- 
stens einem Wort, und ein gleicher End- 
reim findet sich nur in den Zeilen 2 und 4. 
Auch der Umstand, daß erstens die Anzahl 
der Wörter sowie sogar die Anzahl der 
Siiben und zweitens das Versmaß iden- 
tisch sind, begründet noch keinen Urhe- 
berschutz, denn ein Urheber kann weder 
Siiben noch Wörter noch Reime noch 
Versform noch Satzbau exklusiv bean- 
spruchen. Dies gilt sowohl für die gehobe- 
ne Dichtung wie für die Alltagsprosa. Dem 
Autor des Gedichtes könnte man juristisch 
nichts am Zeug flicken. Trotzdem be- 
schleicht uns hier ein unwohles Gefühl, 


denn das gesunde Rechtsempfinden wür- 
de hier ein Plagiat vermuten. Daß dieses 
Empfinden überhaupt aufkommt, ist indes- 
sen nur darauf zurückzuführen, daß 
Goethes Gedicht allgemein bekannt ist. 


Betrachten wir deshalb nach diesem fikti- 
ven Beispiel einen „echten“ Fall. Ange- 
nommen wir würden in derselben Bücher- 
stube nunmehr das Werk „H.Schieren- 
beck: Grundzüge der Betriebswirtschafts- 
lehre, 5. Aufl. 1980" auf der Seite 207 
aufschlagen und folgendes lesen: 


Bei Schierenbeck 

(1) Deren Gegenstand bilden vor allem die 
zukünftige Entwicklung von Markt- und 
Absatzpotential, Markt- und Absatzvolu- 
men sowie des Marktanteils einer Unter- 
nehmung. 

(2) Das Marktpotential umschreibt die Auf- 
nahmefähigkeit eines Marktes (Gesamt- 
heit möglicher Absatzmengen) für ein be- 
stimmtes Produkt. 

(3) Das Absatzpotential ist der maximal 
mögliche Anteil am Marktpotential, den die 
Unternehmung auf sich vereinigen zu kön- 
nen glaubt... 

(4) Infolge des nicht ausgeschöpften 
Marktpotentials ist es für die einzelne Un- 
ternehmung möglich, hohe Steigerungsra- 
ten des Absatzvolumens auch dann zu 
erzielen, wenn sich die Marktanteile nur 
unwesentlich verändern. 


Wohl kaum einer würde hier ein ungutes 
Gefühl haben, weil sich kein De&ja-vu-Er- 
lebnis einstellt. Deshalb helfe ich Ihnen auf 
die Sprünge. Vergleichen Sie nunmehr 
einmal die obigen Sätze mit den nachfol- 
genden, die ich der Seite 186 von „H.Mef- 
fert: Marketing. Einführung in die Absatz- 
politik, 2. Aufl. 1977“ entnommen habe. 


Bei Meffert 

(1) Gegenstand von Absatzprognosen 
sind vor allem der zukünftige Zustand bzw. 
die Entwicklung von Markt- und Absatz- 
potential, Markt- und Absatzvolumen so- 
wie des Marktanteils einer Unternehmung 
(Fuchs 1963, Rogge 1972). 

(2) Marktpotential ist die Gesamtheit mög- 
licher Absatzmengen eines Marktes für ein 
bestimmtes Produkt (Aufnahmefähigkeit 
eines Marktes). 

(3) Absatzpotential ist der Anteil am Markt- 
potential, den das Unternehmen maximal 
erreichen zu können glaubt (Zielset- 
ZUNG)... 

(4) Infolge des nicht ausgeschöpften, 
rasch wachsenden Marktpotentials sind für 
die einzelne Unternehmung große Zu- 
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7” Monitorchassis. Auflösung 18 MHz. Grüner Schirm. Videoeingang. 

Lieferung kpl. steckfertig. Stromversorgung 12V. BN 94011 DM 58,50 
Netztrafo 2x2 V/2 x 2 Amp. BN 94012 DM 7,80 
Monitorgehäuse 7-14” BN 94015 DM 19, so 


Monitor Grün 9”. NonEegenafse! High-Resolution größer 20 MHz, Schirm grün, äntspiögelt. 
Input-Signal 0,5-2,0 V. Stromversorgung 220 V/50 Hz. BN 65032 Monitor VM-91/9 DM 199,90 
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Ein/Aussch. u. Steckdose. +5 V/3 Amp. und +12 V/0,9 Amp. Applefähig. 
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Apple Il und Ile. 

Interface Card für 2 Disc Drive. 

Franklin Qualität. 

BN 94014 DM 58,90 


Trickball. Handballen-Joystick 
für Commodore 20/64, 

Atari u.v.a. 

BN 94031 Paarpreis DM 24,50 
BN 94032 ab 3 Paar DM 19,90 


Original Sinclair 16 K RAM. 
Steck-Modul. Verwendbar nach Umbau 
auch für andere Computer. Bestückung: 
8x4A116 N-4/4 x 74 LS 157 N/i1x74L532/ 
..1x74LS00/1x 74 LS 393. 
mu" BN 94033 DM 34,90 
- BN94034 ab3Stück DM 29,90 
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wachsraten im Umsatz auch dann erreich- 
bar, wenn sich die Marktanteile nur unwe- 
sentlich verändern. 


Bei wohlwollender Beurteilung der Sachla- 
ge würde man sagen, daß sich das Schie- 
‚renbeck-Buch an das Meffert-Buch „ge- 
ringfügig angelehnt“ habe. Bei nicht-wohl- 
wollender Beurteilung würde man sagen, 
daß Schierenbeck „schamlos abgekup- 
fert“ hat. Schierenbeck hätte eine ganze 
Seite aus dem Meffert-Buch wörtlich mit 
vollständiger Quellenangabe zitieren kön- 
nen. Dann wäre die Rechtslage eindeutig 
gewesen. So aber wurden die Sätze aus 
dem Meffert-Buch lediglich geringfügig 
umformuliert (und an einer anderen Stelle 
bei einer exakt reproduzierten Schema- 
zeichnung der Ausdruck „nach Meffert“ 
hinzugefügt). Liegt damit bereits eine freie 
Benutzung vor? Wohl kaum, doch läßt sich 
nicht verleugnen, daß das hier praktizierte 
Verfahren in vielen wissenschaftlichen BU- 
chern gang und gäbe ist. Neue Fachbü- 
cher entstehen heutzutage häufig dadurch, 
daß man Passagen aus früheren Büchern 
extrahiert, kondensiert und transformiert. 
Ironischerweise hat gerade die moderne 
Linguistik gezeigt, wie man hier rein sche- 
matisch vorgehen kann. Chomsky und die 
anderen Verfechter der generativen Trans- 
formationsgrammatik hätten hier frohlockt! 
Nehmen wir an, ein Ausgangsgedanke 
lautete: 


„Wir schreiben jetzt diesen Satz." 

Daraus lassen sich dann auf dem Wege 
der Transformation u.a. die folgenden Sät- 
ze bilden: 


1. Jetzt schreiben wir diesen Satz. 

2. Dieser Satz wird jetzt von uns ge- 
schrieben. 

3. Jetzt wird dieser Satz von uns ge- 
schrieben. 

4. Von uns wird jetzt dieser Satz ge- 
schrieben. 

Wenn man zusätzlich Synomyme und syn- 
taktische Konstruktionen mit anderen 
Wörtern zuläßt, können ferner gebildet 
werden: 

5. Nunmehr bringen wir diese Aussage zu 
Papier. 

6. Der Satz muß nun von uns niederge- 
schrieben werden. 

USW. 


Derselbe Gedanke läßt sich folglich in viel- 
fällige mehr oder weniger gelenke Sätze 
Kleiden; neuer wird er dadurch jedoch 
nicht. 


Wenn derartige syntaktische Transforma- 
tionen und Synonym-Substitutionen be- 
reits ein neues Sprachwerk begründen, 
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dann haben wir es bei Computerwerken 
noch viel einfacher. So läßt sich etwa der 
„Computergedanke“ 

LDA $2000 STA $4000 

folgendermaßen transformieren: 

1. LDX $2000 STX $4000 

2. LDY $2000 STY $4000 

3. LDX $2000 TXA STA $4000 

Man brauchte dann also bei einem frem- 
den Computerwerk lediglich Registerver- 
tauschungen und Befehlsumstellungen 
und anschließend eine Neuassemblierung 
mit geänderter Ursprungsadresse vorzu- 
nehmen, so daß beispielsweise 

LDA $2000 STA $4000 

in 

LDX $2222 STX $4222 

transformiert wird mit der Folge, daß 
(scheinbar) ein neues selbständiges Werk 
entsteht. 


Bei den obigen Zitaten aus den Büchern 
von Schierenbeck und Meffert ist zu unter- 
scheiden zwischen den sog. definitori- 
schen oder analytischen Aussagen (2 und 
3) und den nicht-definitorischen oder syn- 
thetischen Aussagen (1 und 4). Bei analy- 
tischen Aussagen ist der Formulierungs- 
spielraum begrenzt, weil der korrekt defi- 
nierte Begriff die Verwendung bestimmter 
Terminini erzwingt. Bei synthetischen 
Aussagen ist der Formulierungsspielraum 
jedoch sehr groß. Deshalb springt bei- 
spielsweise der Satz (4) sofort als „ange- 
lehnt“ ins Auge. 

Im Gegensatz zu natürlichen Sprachwer- 
ken ist bei Computerwerken der Spiel- 
raum für Variationen teils enger und teils 
weiter gezogen: weiter insofern, als künst- 
liche Umformungen in der oben skizzier- 
ten Art leicht vorgenommen werden kön- 
nen, enger insofern, als Algorithmen eine 
relativ rigide Programmierung erfordern. 


4. Das Kaspar-Hauser-Syndrom 


Goethe gilt bekanntermaßen als unser 
größter Dichter, der seiner Nachwelt ein 
beeindruckendes Gesamtwerk hinterlas- 
sen hat. Demgegenüber ist weniger be- 
Kannt, daß er eine riesige Gelehrtenbiblio- 
thek mit angeblich über 5000 Bänden be- 
saß. Sie werden sich fragen, was das eine 
mit dem anderen zu tun hat. Hier kommen 
wir jedoch zur Begründung zu dem oben 
zitierten Satz (4): Hätte Schierenbeck nie- 
mals das Meffert-Buch gelesen, dann wä- 
re er wohl auch niemals zu dem „ange- 
lehnten“ Satz gekommen, Zu Anfang des 
letzten Jahrhunderts, also noch zu Lebzei- 
ten Goethes, vegetierte ein ausgesetztes 


Findelkind namens Kaspar Hauser sprich- 
wörtlich in einem Kellerloch dahin, bis es 
eines Tages entdeckt wurde. Es wurde 
zwar mehr schlecht als recht ernährt, hatte 
jedoch keinen nennenswerten (Sprach-) 
kontakt zu seiner Umwelt, geschweige 
denn zu seinen Eltern aus den höchsten 
Kreisen des Adels, die sich auf diese Wei- 
se eines Erben entledigen wollten. Es ist 
einleuchtend, daß Hauser im Gegensatz 
zu Goethe niemals ein Werk geschrieben 
hat. Nun wäre es jedoch falsch, annehmen 
zu wollen, daß Goethe seine Werke ge- 
schrieben hat, weil er 5000 Bücher besaß. 
Richtig ist vielmehr, daß Goethe niemals 
ein Buch hätte schreiben können, wenn er 
niemals ein Buch gelesen hätte. Die mehr 
oder weniger umfangreiche Verarbeitung 
früheren Geistesgutes ist damit eine not- 
wendige, aber keine hinreichende Bedin- 
gung für die Schaffung eigener Werke. 
(Für Logiker: die notwendige Bedingung 
ist eine Replikation, die hinreichende eine 
Implikation.) Jeder, der ein Werk schaffen 
will, sei er nun Dichter oder Progammierer, 
muß also notwendigerweise in bestimm- 
tem Umfang auf das Schaffen anderer Ur- 
heber zurückgreifen. Rechtlich relevant ist 
jedoch allein die hinreichende Bedingung. 
Wenn es einem Urheber nicht gelingt, die 
letzte Sprosse der Schöpfungshöhe zu er- 
klImmen, so sollte er sich seine Unzuläng- 
lichkeit eingestehen und zum wörtlichen 
Kleinzitat greifen, das im Rahmen eines 
wissenschaftlichen Sprachwerkes, wozu 
auch die Computerwerke gehören, stets 
erlaubt ist. Wie der obige Satz (4) zeigt, ist 
es mit der Substitution von „groß“ durch 
„noch“ und dem Einfügen von Flickwör- 
tern wie „rasch“ usw. nicht getan. Zur 
„persönlichen geistigen Schöpfung“ 
(UrhG 82) gehört leider etwas mehr. 


5. Folgerungen für Computerwerke 


Das Zitatrecht ist urheberrechtlich für 
Computerwerke deshalb relevant, weil 
Computerprogramme den (wissenschaftli- 
chen) Schriftwerken oder allgemeiner for- 
muliert den Sprachwerken zugeordnet 
werden. Die Zitatparagraphen kommen in- 
dessen erst dann zum Tragen, wenn eige- 
ne Programme mit fremden Programmtei- 
len erscheinen, also vervielfältigt und ver- 
breitet werden (verkaufen, verschenken, 
tauschen). Solange man lediglich in sei- 
nem stillen Kämmerlein fremde Program- 
me in eigene einarbeitet, kann das Urhe- 
berrecht noch nicht verletzt werden, 

Selbst wenn man es mit dem Zitieren in 
wissenschaftliichen Werken oftmals nicht 
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allzu genau nimmt, wie die Gegenüber- 
stellung aus den Büchern von Schieren- 
beck und Meffert gezeigt hat, empfehle ich 
dem Peeker-Leser, im Zweifelsialle wört- 
lich mit korrekter Quellenangabe zu zitie- 
ren, zumal das Kleinzitat vergütungsfrei 
ist. Auch wenn augenscheinlich künstliche 
Transformationen eines fremden Werkes 
rein rechtlich ausreichen, um ein neues 
Werk zu schaffen, ist dieses Verfahren 
ethisch mehr als fragwürdig. 


Vorsicht ist stets bei Großzitaten geboten, 
weil hier die Grenzen enger gezogen sind. 
So ist es beispielsweise in einem Buch 
über ProDOS, das dieses Betriebssystem 
bis zum letzten Byte kommentiert, ohne 
weiteres zulässig, ProDOS in Form eines 
Großzitats in den Text zu integrieren. Um- 
gekehrt wäre es nicht zulässig, auf eine 
Diskette mit einem beliebigen Apple-Pro- 
gramm ProDOS oder DOS 3.3 mit aufzu- 
nehmen, weil hierfür zitatrechtlich keine 
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Veranlassung besteht. 

(Nachtrag: Die Schlagzeile „Ave auctor, 
plagiarii te salutant“ = „Heil Dir Autor, die 
Plagiatoren grüßen Dich“ ist in Analogie 
zu dem Gladiatorenspruch „Ave impera- 
tor, morituri te salutant“ = „Heil Dir Impe- 
rator, die Todgeweihten grüßen Dich” ent- 
standen.) 


il 





Urheberrechtsnovelle 


Am 27.06.1985 ist das „Gesetz zur Ände- 
rung von Vorschriften auf dem Gebiet des 
Urheberrechts“ im „Bundesgesetzblatt“ 
Nr. 33 veröffentlicht worden, das nunmehr 
erstmals konkret von „Programmen für die 
Datenverarbeitung“ spricht, die den 
Sprachwerken zugeordnet werden. Nach- 
folgend geben wir einen Auszug aus den 
geänderten Paragraphen des UrhG, so- 
weit sie für EDV-Programme relevant sind. 
Man beachte, daß die Zitatrechtparagra- 
phen nicht geändert wurden. 


&2 Abs. 1 Nr. 1: (Zu den geschützten 
Werken ... gehören insbesondere:) 

1. Sprachwerke, wie Schriftwerke und Re- 
den, sowie Programme für die Datenverar- 
beitung. 


853 Vervielfältigungen zum privaten und 
sonstigen eigenen Gebrauch 

(1) Zulässig ist, einzelne Vervielfältigungs- 
stücke eines Werkes zum privaten Ge- 
brauch herzustellen. Der zur Vervielfälti- 
gung Befugte darf die Vervielfältigungs- 
stücke auch durch einen anderen herstel- 
len lassen; doch gilt dies für die Übertra- 
gung von Werken auf Bild- oder Tonträger 
... nur, wenn es unentgeltlich geschieht. 
(2) Zulässig ist, einzelne Vervielfältigungs- 
stücke eines Werkes herzustellen oder 
herstellen zu lassen 

1. zum eigenen wissenschaftlichen Ge- 
brauch, wenn und soweit die Vervielfälti- 
gung zu diesem Zweck geboten ist, 

2. zur Aufnahme in ein eigenes Archiv, 
wenn und soweit die Vervielfältigung zu 
diesem Zweck geboten ist und als Vorlage 
für die Vervielfältigung ein eigenes Werk- 
stück benutzt wird, 
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(4) Die Vervielfältigung 


b) eines Buches oder einer Zeitschrift, 
wenn es sich um eine im wesentlichen 
vollständige Vervielfältigung handelt, 

ist, soweit sie nicht durch Abschreiben 
vorgenommen wird, stets nur mit Einwilli- 
gung des Berechtigten zulässig oder unter 
den Voraussetzungen des Absatzes 2 Nr. 
2 oder zum eigenen Gebrauch, wenn es 
sich um ein seit mindestens zwei Jahren 
vergriffenes Werk handelt. Ebenso ist die 
Vervielfältigung eines Programms für die 
Datenverarbeitung (82 Abs. 1 Nr. T) oder 
wesentlicher Teile davon stets nur mit Ein- 
willigung des Berechtigten zulässig. 

(5) Die Vervielfältigungsstücke dürfen we- 
der verbreitet noch zu Öffentlichen Wie- 
dergaben benutzt werden... 


8108a: Gewerbsmäßige unerlaubte Ver- 
wertung 

(1) Handelt der Täter in den Fällen des 
Vervielfältigens oder des Verbreitens im 
Sinne des 8106 oder des 8108 gewerbs- 
mäßig, so ist die Strafe Freiheitsstrafe bis 
zu fünf Jahren oder Geldstrafe. 

(2) Der Versuch ist strafbar. 


Rechtsprechung zum Software- 
Urheberrecht 


Unter diesem Titel erscheint im nächsten 
Peeker ein Beitrag von RA D. Naber, der 
die Gerichtsurteile der letzten Zeit resü- 
miert. 


Lotus und Urheberrecht 


In der amerikanischen Zeitschrift „Byte“ 
wurde von mehreren Prozessen der Firma 
Lotus gegen Käufer von „1-2-3" usw. be- 
richtet. Wegen der Herstellung |llegaler 
Kopien sollen angeblich Konventionalstra- 
fen in Millionenhöhe gezahlt worden sein. 
Da die Firma Lotus jetzt auch eine Nieder- 
lassung in Deutschland hat, empfehle ich 
deshalb allen Lesern, den Kaufvertrag 
durch den Passus zu erweitern, daß nur 
das neue deutsche Urheberrechtsgesetz 
gilt und davon abweichende Vereinbarun- 
gen null und nichtig sind. Die Empfehlung 
gilt im übrigen nicht nur in bezug auf Lo- 
tus, sondern im Hinblick auf alle Software- 
Verträge. Es ist Ihr gutes Recht, wenn Sie 
sich das ausbedingen, was im Gesetz 
steht. us 
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Ein neues FID 
fur DOS 3.3 


Mit Auto-FID für RAM-Disk-Besitzer 


von Harald Grumser 


Ein im Umgang mit Disketten immer wie- 
der auftretendes Problem ist die Erstellung 
von Dateikopien, sei es, um die Folgen 
eines „Disketten-Crashs“ durch sog. 
Backups zu mindern oder um alle wichti- 
gen Arbeitsdateien auf eine RAM-Disk zu 
übertragen. 

Eine Automatisierung dieses Vorgangs 
war bisher nur unter Zuhilfenahme des 
FID-Programms (File Developer) möglich, 
wobei der recht umständliche Weg über 
eine EXEC-Datei gewählt werden mußte. 
Das hier vorgestellte Programm zeigt, wie 
man aus einem Äpplesoft-Programm her- 
aus Dateien aller Art (A-, I-, B- und T-Files) 
kopieren kann, ohne daß dabei Probleme 
wie Garbage-Collection oder „EXTRA 
IGNORED"-Meldungen speziell bei der 
Übertragung von Textdateien auftreten. Es 
bietet sich somit auch die Möglichkeit, die 
RAM-Disk durch ein geeignetes HELLO- 
Programm als Arbeitsdiskette vorzuberei- 
ten und nach Beendigung einer Sitzung 
alle wichtigen Daten per Programm auf 
eine physische Diskette zu retten. 


1. Anforderungen 


Bei der Erstellung dieses Programms wur- 
den foigende Ziele ins Auge gefaßt: 
Kompatibilität — Da mittlerweile etliche 
DOS-Varianten existieren, die z.T, erhebli- 
che Verbesserungen gegenüber dem 
Standard-DOS-3,3 zeigen, wurde auf die 
Benutzung aller nicht über die Page 3 zu- 
gänglichen DOS-Routinen verzichtet. So- 
mit läuft dieses Programm auch unter Di- 
vers-DOS und gemovten DOS-Ver- 
sionen. 

Flexibilität —- Es versteht sich von selbst, 
daß sowohl der Betrieb mit einem Lauf- 
werk als auch die Ansteuerung von Lauf- 
werken in verschiedenen Slots unterstützt 
wird. Die Möglichkeit, unterschiedliche 
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Quell- und Zielnamen anzugeben, verein- 
facht die Anwendung in vielen Fällen, da 
dadurch auch Dateien auf einer Diskette 
dupliziert werden können. Der Umfang 
des Datenpuffers kann vom Benutzer ge- 
wählt werden, 

Einfache Handhabung — Der Aufruf des 
Kopierprogramms erfolgt mit Hilfe des 
Ampersand-Vektors. Die zuletzt angege- 
benen Laufwerksparameter bleiben als Er- 
satzwerle erhalten, wodurch Slot und 
Drive nicht immer wieder neu eingegeben 
werden müssen. 

Neutralität — Da diese Utility in Anwen- 
derprogramme eingebaut werden kann, 
besteht die Möglichkeit, alle Meldungen 
(Fehleranzeige, Aufforderung zum Disket- 
tenwechsel usw.) abzufangen und durch 
eigene Menütexte oder Bildschirmmasken 
zu ersetzen. Dies wurde durch die Über- 
gabe aller Meldungen als Applesoft-Fehler 
realisiert, die durch „ONERR GOTO“ be- 
arbeitet werden können. Die Programmie- 
rung gestaltet sich somit ähnlich wie bei 
DOS-Befehlen in umfangreicheren An- 
wenderprogrammen. 

Darüber hinaus besteht die Möglichkeit, 
das Programm auch im Direktmodus auf- 
zurufen. 


2. Der Programmstart 


Vor der Erläuterung der Interna soll zu- 
nächst die Initialisierung und der Aufruf 
des Programms, das AS.FILER (= Ap- 
plesoft-Filer) genannt wurde, beschrieben 
werden. Das Programm wird durch BRUN 
AS.FILER gestartet und setzt als Ersatz- 
werte für Quell- und Ziellaufwerk die Para- 
meter des Startlaufwerks ein. Der Benut- 
zer muß danach den Pufferumfang durch 
Angabe des HIMEM-Wertes festlegen; 
dieser Puffer bestimmt die Datenmenge, 
die auf einmal in den Rechner eingelesen 


werden kann, und sollte, um mehrfache 
Kopierschübe zu vermeiden, so groß wie 
möglich gewählt werden. Im Direktmodus 
kann HIMEM z.B. auf 4096 ($1000) ge- 
setzt werden, d.h. je tiefer die angegebene 
Adresse, desto größer wird der Puffer. Im 
Programm sollte dieser Wert jenseits der 
Varlablengrenze liegen und noch etwas 
„Luft“ für Strings lassen (siehe die beiden 
Beispielprogramme). Das Programm 
selbst beginnt im Speicher ab $8EA4 
(bzw. $8ED8, da die Initialisierungsroutine 
überschrieben werden kann) und bildet 
die Obergrenze des Datenpuffers. 


3. Der Aufruf 


Der eigentliche Aufruf des Kopierpro- 
gramms erfolgt dann durch den Befehl „& 
Quelldatei, Zieldatei“, wobei die beiden 
Dateiangaben als Strings angegeben wer- 
den müssen. Die Datelangabe besteht aus 
dem Dateinamen und den durch Komma 
getrennten Laufwerksparametern. Wird 
die Laufwerksangabe weggelassen, so 
setzt das Programm die zuletzt benutzten 
Werte ein. Die Laufwerksangabe besteht 
aus Slot und Drive (die Reihenfolge spielt 
dabei keine Rolle) und muß nicht vollstän- 
dig sein, d.h., daß z.B. der Slot nicht im- 
mer bestimmt werden muß. 

Die Angabe der Zieldatei kann entfallen; in 
diesem Fall wird der Quellname und das 
zuletzt angegebene Ziellaufwerk einge- 
setzt, Das Komma zwischen Quell- und 
Zieldatei darf in diesem Fall nicht getippt 
werden. Soll der Quellname benutzt wer- 
den, jedoch ein anderes Ziellaufwerk, so 
kann die Zieldateiangabe nur aus der Be- 
stimmung des Laufwerks bestehen, wobei 
jedoch aus syntaktischen Gründen ein 
Komma vorangehen muß. 

Um dieser formalen Beschreibung etwas 
Farbe zu geben, sind im folgenden einige 
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Beispiele mit Erläuterungen aufgelistet. 
Dabei seien folgende Eingaben vorange- 
gangen: 


BRUN AS.FILER,S6,D1 
HIMEM: 3000 

N$ = "DATEI" 

DRIVE =2 


& “ORIGINAL", "FAELSCHUNG,D2" — 
kopiert die Datei ORIGINAL von Laufwerk 
S6, Di als Datei FAELSCHUNG nach S6, 
BD 

& "TEXT" — kopiert die Datei TEXT von 
Laufwerk S6, Di unter gleichem Namen 
nach S6, D2. 

& "PROGRAMM,D2“, "POGRAMM.T" — 
kopiert die Datei PROGRAMM von Lauf- 
werk S6, D2 mit dem Namen PRO- 
GRAMM.1 auf das gleiche Laufwerk. 

& N$ + ",53", “,D1,53" — kopiert die 
Datei mit Namen DATEI von Laufwerk S3, 
D2 mit demselben Namen nach S3, D1. 

& N$ + ".COPY“, "DATELBAKD" + 
STR$ (DRIVE) — kopiert die Datei namens 
DATEI.COPY von Laufwerk S3, D2 mit 
dem Namen DATEI.BAK auf dasselbe 
Laufwerk. 


Es ist zu beachten, daß Leerzeichen nur 
innerhalb des Dateinamens stehen dürfen. 


4. Die Fehlermeldungen 


Wenn während der Übertragung mit nur 
einem Laufwerk ein Diskettenwechsel not- 
wendig wird, meldet sich das Programm 
mit einer Fehlermeldung und Fehlernum- 
mer. Nach dieser Meldung kann mit dem 
&-Befehl fortgefahren werden (es versteht 
sich, daß die Diskette vorher gewechselt 
werden muß). Besteht die Zieldatei bereits 
oder ist sie gesperrt, so wird ebenfalls eine 
Warnung in Form eines Fehlers ausgege- 
ben. In diesem Fall kann durch „& Name“ 
ein neuer Zielname angegeben oder durch 
einen einfachen &-Befehl die alte Datei 
überschrieben werden. 

Es gibt jedoch auch einige weniger erfreu- 
liche Fehlermeldungen, die die Kopie ab- 
brechen. In der Tabelle der Fehlermel- 
dungen und Hinweise sind diese zusam- 
mengestellt. 

Daraus wird auch ersichtlich, daß eine Ko- 
pie bei jeder Meldung durch die Eingabe 
von „&,“ abgebrochen werden kann. 
Diese Verfahrensweise ermöglicht zwar 
eine große Flexibilität, es Ist jedoch davor 
zu warnen, die Antwort auf eine Meldung 
erst nach mehreren anderen Aktionen zu 


Peeker 9/85 





geben. Dagegen kann während einer Ko- 
pie durchaus mittels „CATALOG“ die Exi- 
stenz von Dateien nachgeprüft werden 
(z.B. zur Festlegung eines Ersatz-Zielna- 
mens) 

Innerhalb eines Programmablaufs sollte 
auf die Meldungen durch „ONERR GO- 
TO“-Konstruktionen eingegangen wer- 
den. Dies geschieht auf die übliche Weise; 
der Fehlercode kann wie bisher durch 
PEEK (222) ermittelt werden. Näheres 
hierzu ist aus den beiden Beispielpro- 
grammen zu entnehmen. 


Der Kopiervorgang sei noch einmal an ei- 
nem kurzen Dialog verdeutlicht, bei dem 
die (sehr lange) Datei XXX mit nur einem 
Laufwerk kopiert werden soll: 


SERX SE. BE = 56. BP ES REWIRN > 
+6 ERROR (bedeutet: vertippt — Datei exi- 
stiert nicht) 

& "XXX" <RETURN> 

#2 ERROR (bedeutet: Zieldiskette ein- 
legen) 

& <RETURN> 

#4 ERROR (bedeutet: Datei existiert be- 
reits) 

CATALOG <RETURN> (neuen Dateina- 
men suchen) 

St <SBEIURN> 

#1 ERROR (bedeutet: Quelldiskette ein- 
legen) 

& <RETURN> 

#2 ERROR (bedeutet: erneut Zieldiskette 
einlegen) 

& <RETURN> 


5. Technische Details 


Der Aufruf des File-Managers wurde 
schon im Peeker, Heft 5/85 beschrieben 
und soll nur noch einmal kurz zusammen- 
gefaßt werden. Zum Einlesen einer Datei 
muß diese zunächst eröffnet werden. Da- 
bei wird deren Existenz überprüft und der 
(erste) TSL-Sektor eingelesen. Bevor nun 
die Daten gelesen werden können, ist die 
Datei zu positionieren, d.h. ein interner 
Dateizeiger wird im allgemeinen auf den 
Dateianfang gesetzt. Nach dieser Positio- 
nierung kann der Inhalt der Datei in den 
Rechner gelesen werden. 

Aufgabe des Programmierers ist die Be- 
reitstellung des Speicherbereiches, der 
die Daten aufnehmen soll. Da Daten stets 
nur sektorweise (1 Sektor = 256 Byles) 
eingelesen werden, muß ein Puffer bereit- 
gestellt werden, der darüber hinaus auch 
den TSL-Sektor aufnehmen muß. Weiter- 
hin benötigt der File-Manager einen Puf- 
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fer, um alle im Zusammenhang mit dieser 
Datei relevanten Daten abzulegen (dies ist 
die Voraussetzung für die gleichzeitige 
Bearbeitung mehrerer Dateien). 


Paßt die eingelesene Datei nicht auf ein- 
mal in den Speicher, so bricht der File- 
Manager den Lesevorgang ab. An dieser 
Stelle kann nun der gepufferte Dateiinhalt 
auf die Zieldatei geschrieben werden, die 
auch zunächst eröffnet und positioniert 
werden muß. Bei der Eröffnung der Zielda- 
tei muß die Möglichkeit bestehen, diese 
neu anzulegen. Dies wird durch das sog. 
Allocation-Flag (X-Register) mitgeteilt. 
Nachdem der Puffer auf die neue Datei 
geschrieben wurde, kann in einem weite- 
ren Durchlauf der nächste Teil des Files 
eingelesen werden, um auch diesen zu 
übertragen. Das Ende der Datei ist er- 
reicht, wenn beim Einlesen ein „END OF 
DATA“-Fehler auftritt. Nach dem letzten 
Beschreiben der Zieldatei muß diese ge- 
schlossen werden. Dabei wird die TSL auf 
der Diskette aktualisiert und der letzte 
Datensektor als belegt gekennzeichnet. 
Die Quelldatei muß im Gegensatz zum 
DOS-Aufruf auf Applesoft-Ebene nicht ge- 
schlossen werden (Dieses Schließen im 
Applesoft-Programm bewirkt nur, daß der 
Dateipuffer freigegeben wird). 

Beim Lesen und Schreiben wird die Länge 
des Speicherbereichs in der File-Mana- 
ger-Parameter-Liste übergeben. Es ist da- 
bei zu berücksichtigen, daß die Länge 
beim Schreiben um 1 vermindert werden 
muß. 


6. Programm-Interna 


Das Programm AS.FILER untergliedert 
sich in vier Teile: 


@ Im Initialisierungsteil wird der &-Vektor 
gesetzt und die Lage der File-Manager- 
Parameter-Liste und des Input/Output- 
Blocks über eine Page-3-Routine ermittelt. 
Danach werden die Ersatzwerte für Slot 
und Drive aus dem lOB übernommen und 
ein Status-Register auf Null gesetzt. Die- 
ses Register gibt während des Kopiervor- 
gangs den Zustand an, um nach einem 
Wiederaufruf (z.B. nach Diskettenwech- 
sel) an der richtigen Stelle fortfahren zu 
können. 


® Der zweite Teil bildet die Benutzer- 
schnittstelle. Nach Aufruf durch den Am- 
persand-Vektor werden hier zunächst die 
Übergabeparameter ausgewertet; die 
Kontrolle der Syntax richtet sich nach dem 
derzeitigen Status. Bestehen keine Bean- 
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standungen, so wird in den entsprechen- 
den Teil der Hauptroutine verzweigt. 


® im Haupieil erfolgt die eigentliche Ko- 
pie. Er besteht im wesentlichen aus wie- 
derholten Aufrufen des File-Managers, 
wobei dessen Fehlermeldungen den Ab- 
lauf regeln. Da diese Routine mehrfach für 
einen Kopiervorgang aufgerufen werden 
kann, müssen einige Werte gesichert 
werden: 


Zunächst wird ermittelt, ob nur ein Lauf- 
werk vorliegt (SAMESD) um vor dem Um- 
schalten einen Diskettenwechsel zu er- 
möglichen. Außerdem muß festgelegt 
werden, ob beim Lesen eine „END OF 
DATA“-Meldung auftrat, um zum einen 
den Pufferumfang entsprechend zu ver- 
Kleinern und zum anderen den letzten 
Durchgang zu markieren (LSTPASS), da 
nach dem letzten Schreiben die Zieldatei 
geschlossen werden muß und somit die 
Kopie abgeschlossen ist. Darüber hinaus 
muß durch die Variable OPNFLG sicher- 
gestellt werden, daß die Zieldatei beim 
zweiten Schreibdurchgang nicht nochmals 
eröffnet wird. 

Eine detaillierte Schilderung dieser Routi- 
ne würde hier zu weit führen; es sei daher 
auf die reichhaltigen Kommentare im Pro- 
gramm verwiesen. 


® Der vierte Teil beinhaltet die Unterpro- 
gramme zum Aufruf des File-Managers 
und der Auswertung des Übergabe- 
Strings. Diese Routinen zeichnen sich 
nicht durch eine gesteigerte Durchsichtig- 
keit aus, weil versucht wurde, den Code 
so kurz wie möglich zu halten. 

Die Parameterauswertung gestaltet sich 
zum einen wegen der vielen optionalen 
Angaben etwas umständlich, zum anderen 
muß die Integrität des Namens (dies bein- 
haltet auch die maximale Länge von 30 
Zeichen) sichergestellt werden. 


Vor der Beschreibung der Beispielpro- 
gramme noch einige allgemeine Erläute- 
rungen zum Programm: 


Die Variable PAGES legt die Anzanl der 
minimalen Pufferseiten fest. Umfaßt der 
Speicherbereich zwischen HIMEM und 
dem COPY-Programm weniger als die in 
dieser Variablen festgelegten Seiten, so 
erfolgt eine „OUT OF MEMORY“ -Fehler- 
meldung. 

Bricht das Programm wegen eines „DISK 
FÜLL”-Fehlers ab, muß die Zieldatei in 
jedem Fall geschlossen werden, da sonst 
beim Löschen dieser Datei die belegten 
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Sektoren in der VTOC nicht mehr freige- 
geben würden. 

Das Lockbit im Filetyp-Byte wird stets zu- 
rückgesetzt, da das Programm ansonsten 
eine Überschreibung der neu eröffneten 
(geschlossenen) Datei verweigern würde. 
Vor dem Überschreiben einer existenten 
Datei wird diese zuerst gelöscht, da sonst 
die alte Länge und der Filetyp erhalten 
bliebe. 

Das Programm verwendet keine DOS- 
Puffer, sondern stellt selbst ca. 1200 Bytes 
unterhalb von $9600 bereit. 

Unter Standard-DOS kann sich die hier 
vorgestellt Utillity geschwindigkeitsmäßig 
nicht mit FID messen, da FID im Gegen- 
satz zu diesem Programm nicht „seriös“ 
programmiert wurde und deshalb z.B. 
nicht mit gemovtem DOS ohne Patch läuft. 
Benutzt man hingegen z.B. Diversi-DOS, 
so halten sich die Übertragungsgeschwin- 
digkeiten in etwa die Waage. 


7. STARTUP zum Kopieren 
von Diskette auf RAM-Disk 


Beim Kaltstart des Rechners ist es wün- 
schenswert, wenn eine RAM-Disk instal- 
liert wird und alle wichtigen Dateien dort- 
hin übertragen werden. Das Programm 
STARTUP demonstriert eine Möglichkeit 
mit der Poor Man’s RAM-Disk aus Peeker, 
Heft 1-2/85, S. 8; es kann jedoch jede 
andere RAM-Disk benutzt werden, deren 
Initialisierung als Unterprogramm aufgeru- 
fen werden kann (Zeile 120 und 130 sind 
dann zu ändern). Die hier verwendeten 
POKEs verhindern einen DOS-Warmstart 
und das Löschen des Bildschirms; der 
Einsprung erfolgt dann hinter dem Instal- 
lierungsmenü. 

Nach dem Starten des AS.FILER wird HI- 
MEM auf den niedrigsten Wert (Variablen- 
ende + 7 Strings für die Dateinamen) ge- 
setzt, um einen maximal großen Puffer zu 
erhalten. Die zu übertragenden Dateien 
werden in einer DATA-Zeile festgehalten 
und nacheinander kopiert. Da beim Kalt- 
start des Rechners nicht allzuviele Fallun- 
terscheidungen nötig sind, reduziert sich 
die Fehlerbehandlung auf wenige Zeilen. 
Erwähnenswert ist die Zeile 340, die in 
jeder Fehlerbehandlungsroutine nach 
„ONERR GOTO" eine ganz normale Feh- 
lerausgabe produziert. Dieses Verfahren 
bietet sich beim Austesten von Program- 
men an, wenn nicht sichergestellt ist, ob 
alle möglichen Fehler abgefangen werden 
(was in dem Programm STARTUP nicht 
der Fall sein sollte). 


Tritt bei der Übertragung ein „DISK FULL 
ERROR“ auf (die Poor Man’s RAM-Disk 
umfaßt nur 61 reine Datensektoren), so 
wird die letzte Datei gelöscht, da sie ohne- 
hin nicht komplett kopiert wurde und somit 
nutzlos wäre. 


8. ENDUP zum Kopieren 
von RAM-Disk auf Diskette 


Der Inhalt einer RAM-Disk geht nach dem 
Ausschalten des Rechners verloren — es 
sei denn, die Dateien werden auf eine 
physische Diskette kopiert, was insbeson- 
dere für die eigentlichen Datendateien er- 
forderlich ist. Eine Automatisierung dieses 
Vorgangs wäre wünschenswert. 

Das Programm ENDUP zeigt ein weiteres 
Beispiel für die Anwendung des AS. 
FILER. Hierbei wird im Gegensatz zum 
FID-Programm automatisch ein Suffix an- 
gehängt, wenn eine Datei gleichen Na- 
mens auf der Zieldiskette bereits existiert. 
Das Programm besteht im wesentlichen 
aus drei Teilen. Das Hauptprogramm (Zei- 
le 1000 ff.) regelt die Übertragung der 
Dateien und die Bearbeitung der Fehler- 
meldungen und Warnungen. Das Unter- 
programm ab Zeile 2000 liest aus der Ca- 
talog-Spur der Diskette bei jedem Aufruf 
einen Dateinamen ein und übergibt diesen 
an das Hauptprogramm. Es bedient sich 
dabei des Unterprogramms ab Zeile 3000, 
das den angegebenen Sektor in den Ein- 
gabepuffer einliest. 

Im Hauptprogramm werden zunächst die 
Laufwerksparameter von Quell- und Ziel- 
diskette abgefragt. Nach Angabe dieser 
Werte läuft die komplette Übertragung au- 
tomatisch ab, wobei die Namen der ko- 
pierten Dateien ausgegeben werden. Be- 
steht auf der Zieldiskette bereits eine Datei 
mit demselben Namen, so wird der Zielda- 
tei solange eine „.COPY“" angehängt, bis 
ein noch nicht existierender Name ent- 
steht. (Dieses Verfahren gerät jedoch in 
eine Endlos-Schleife, wenn der Dateina- 
me eine Länge von 30 Zeichen über- 
schreitet.) 

Das Programm kann selbstverständlich 
auch genutzt werden, um Dateien zwi- 
schen zwei physischen Laufwerken zu 
transferieren. Soll eine selektive Übertra- 
gung erfolgen, so kann in Zeile 2145 der 
Dateityp durch die Anweisung 

IYP = PEEK (514 + IND) 

ermittelt werden; zur Kopie reiner Ap- 
plesoft-Dateien ist dann folgende Zeile 
einzufügen: 

1215 IF TYP <> 2 THEN 1200 
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(zu den Dateitypen s. Peeker, Heft 5/85, 
Seite 9: DOS-File-Manager). 

Obwohl die Kopie einer Diskette auf sich 
selbst möglich wäre, sei vor diesem Spiel 
gewarnt. Solange weniger als 7 Dateien zu 
übertragen sind, findet das Programm ein 
Ende, wenn nie mehr als 6 Dateien auf der 
Diskette existierten. Ansonsten wird die 
erste Datei mit dem Anhängsel „.COPY 
‚COPY“ so lange kopiert, bis ein „DISK 
FULL ERROR” auftritt. 


Das Unterprogramm, das jeweils den 
nächsten Catalog-Eintrag holt, liest beim 
ersten Aufruf den ersten Catalog-Sektor in 
den Eingabepuffer ein. Danach wird ein 
Index auf den ersten Eintrag gebildet und 
der Dateiname herausgepeekt. Dabei muß 
von hinten das erste Nicht-Leerzeichen 
gesucht werden, da ansonsten jeder Na- 
me 30 Zeichen umfassen würde und ein 
Suffix bedeutungslos wäre. Um Konflikte 
mit der internen String-Darstellung des 
Applesoft-Interpreierss zu vermeiden 
(DOS 3.3 legt die Dateinamen mit Bit 7 = 
1 ab, während der Interpreter und der AS- 
‚FILER positive ASCII-Werte bearbeitet), 
wird durch Subitraktion von 128 das Bit 7 
gelöscht. 

Beim nächsten Aufruf dieses Unterpro- 
gramms wird der Index um 35 erhöht und 
ein weiterer Name ausgewertet. Dabei 
muß geprüft werden, ob dieser Eintrag 
nicht gelöscht wurde (Zeiger zur ersten 
Track/Sektor-Liste enthält $FF), um ihn 
gegebenenfalls zu übergehen, Dieses 
Byte wird auch zur Erkennung des Cata- 
log-Endes herangezogen: ein nie referier- 
tes Feld enthält hier eine Null. Die Variable 
ERR wird dann vor dem Ruücksprung in das 
Hauptprogramm auf 1 gesetzt. Über- 
schreitet der Index die Sektorgrenze, so 
wird der nächste Catalog-Sektor eingele- 
sen, falls es sich nicht schon um Sektor | 
der Catalog-Spur handelt. 


Das Einlesen eines Sektors mit Hilfe eines 
(fast) reinen Applesoft-Programms ist we- 
nig geeignet, um den hochsprachlichen 
Charakter des BASIC zu demonstrieren — 
das hier gezeigte Unterprogramm kann 
dennoch in vielen Fällen nützlich sein. 

Vom Hauptprogramm müssen die Sektor- 
parameter (SLOT, DRIVE, TRACK, SEC- 
TOR) übergeben werden. Beim Aufruf 
wird zunächst die Lage des IOB und der 
RWTS bestimmt. Da auch hier jegliche 
Kompatibilität gewahrt werden soll, ist die 
Adresse des lOB nur durch die umständli- 
che Konstruktion mit den indirekten 
PEEKs möglich, Bevor die RWTS aufgeru- 
fen wird, müssen die Parameter in diesen 
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Kontrollblock übertragen werden. (Auf die 
Bedeutung der einzelnen POKEs soll hier 
nicht weiter eingegangen werden). 

Beim Sprung in die RWTS müssen das A- 
und Y-Register die Adresse des IOB ent- 
halten; daher kann nur über ein kurzes 
gepoktes Maschinenprogramm dorthin 
gesprungen werden. 

Vor der Rückkehr in das aufrufende Pro- 
gramm wird letztendlich ein Fehlercode in 
die Variable ERR eingelesen, wobei ERR 
= O. den erfolgreichen Lesevorgang signa- 
isiert. 


AS.FILER Hex-Dump 
BSAVE AS.FILER, A$SEA4, 11884 


$SEAd: 0 BB 00 AS DE AB BE 
$BEAS: d3 F7 83 BG 
$8EBB: ED EE 26 93 
$8EBB: 85 Ad BB 65 
$BECH: Bl AA AA aa 
$BECS: 91 59 91 Bl 
$8EDB: Aa 8D 58 sg 
$8EDS: De 26 Bl ac 
$8EEB: AE 91 FÖ EB 
$SERS: Ö6 26 8F BA 
$SEFB: d2 ds 28 SF 
SSEFS: 8P #3 DE 
$8FBß: D® A2 BE 
$EFB8: 99 13 BF 
$BF1B: DA dE A9 
SEFI18: ac 8F 29 
$SF2B: 8F Bö SF 
$8F28: Bl AI 85 
$8F39B: öß 57 9] 
$EF38: Ag 13 


$8F4B: ES FB 
$8F48: B® 18 
$8F5B: AD CD 
$8F58: AD ED 
$ar6ß: 91 8E 
$8F68: EB #3 


$sF7B: d7 29 
$8F78: A2 Dl 
$8F8Q: 68 4 
HEFS8: 29 Fo 
$EF9B: 18 A5 
$8F98: FA FB 
SSFAR: AD De 
GSBFAB: 1E 91 
$SSFBB: 8E A2 
$8FBB: Ad ED 
$SFCR: Dd Do 
$BFCB: 65 3d 
$BFDd: 66 D1 
$BFD8: AD D® 
$EFEB: 28 Ag 
$8FEB: 6a 28 
$SFFB: BD 9D 
$8FFB: F7 d8 
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59998: 
$9908: 
$9B1B: 
$9918: 
$9ß2B: 
$9828: 
$9038: 
59838: 
$9ß4B: 
$9948: 
$9858: 
59858: 
$9069: 
59068: 
59978: 
$9078: 
$388: 
$9088: 
9998: 
$9098: 
$IBAB: 
$IBABS: 
$99B9: 
H90B8: 
$I9CB: 
$90C8: 
SIADB: 
S9ADE: 
$SIBEB: 
$9ßES: 
$9BFß: 
$SAF8: 
$91ßB: 
$91B8: 
$911B: 
$9118: 
59128: 
$9128: 
$9138: 
59138: 
$9149: 
89148: 
59158: 
$9158: 
$3168: 91 BB 
(ab hier Datenpuffer) 


DB-MEISTER 


Adreß- und Schemabriefprogramm 


Der DB-Meister ist ein in Assembler ge- 
schriebenes, ungewöhnlich schnelles, un- 
kompliziertes und zugleich „narrensicheres“ 
Adreß-, Datei- und Schemabriefprogramm. 
Technische Daten 
— Recordlänge bis zu 230 Zeichen 
560 bis 1000 Records pro Datendiskette 
Maximal 25 Felder pro Record 
Suche nach 3 Indexfeldern 
Ausdruck der Dateien als Etiketten, Listen 
und Schemabriefe (mit Felder- und Tasta- 
tureinschüben an beliebigen Stellen des 
Formbriefes) 
normal kopierbare Programmdiskette, un- 
terteilt in Hauptprogramme und diverse 
Hilfsprogramme 
einsatzfähig auf Apple Ile, IIc oder II Plus 
mit 2 Drives (1 Drive ebenfalls möglich) 


Gesamtpreis 290,- (2 Disketten + ge- 
drucktes Manual) 

U. Stiehl 

c/o Dr. A. Hüthig Verlag 

Postfach 10 28 69 - 6900 Heidelberg 
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Tabelle der Fehlermeldungen und Hinweise ENDUP 


Hinweise 


1B®1 REM & ENDUP * 

1918 PRINT CHR$ (A)"BRUN AS.FILER" 

1628 PRINT CHR$ (12): HOME 

1%38 INPUT "Quellaufwerk (S,D): ";SLOT,DRIVE 

16468 IF SLOT < d OR SLOT > 6 THEN 1938 

18560 IF DRIVE < ® OR DRIVE > 2 THEN 1939 

1968 INPUT "Ziellaufwerk (S,D): ";25,ZD 

1876 IF ZS < ® OR ZS > 6 THEN 1969 

1d80 IF ZD < ® OR ZD > 2 THEN 1d6B 

1896 PRINT : PRINT "Zieldiskette einlegen..." 

1188 PRINT TAB( 22)"...Taste drücken": GET A$: PRINT 

111® HIMEM: PEEK (169) + PEEK(11®) *» 256 + 2809: REM 2808 
Bytes für Strings 

1128 ONERR GOTO 1389 

1280 CGOSUB 2896: IF ERR = 1 THEN 1999 

1216 IF ERR THEN 179% 

1228 PRINT : PRINT "Datei: ";N$; 

1230 & NS + "SU £ STRS (SLOT) +", DV + STR$ (DRIVE),",S" + 
STR$ (ZS) + '",D" + STR$ (ZD) 

124 GOTO 126% 

13068 ON PEEK (222) GOTO 1400 , 1469, 1509, 1500, 1909, 1990, 16ß®, 
1780, 1896 

14068 & : GOTO 1290: REM kein Diskettenwechsel 

1506 N$ = N$ + ",COPY": REM keine Datei überschreiben 

151® PRINT ".COPY";: & N$: GOTO 1209 

1688 PRINT : PRINT CHR$ (7)"Zieldiskette schreibgeschützt": 
END 

1766 PRINT : PRINT CHR$ (7)"I/0-Fehler": END 

1866 PRINT : PRINT CHR$ (7)"Zieldiskette voll": END 

1988 END 

1997 REM Nächsten Catalog-Eintrag holen 

2668 IF TRK = 17 THEN 2100 

2ö1® TRK = 17: REM Catalog-Spur 

2628 SEC = 15: REM 1. Catalog-Sektor 

2038 IND = 11 - 35 

2108 IND = IND + 35: IF IND = 256 THEN SEC = SEC - 1:IND = 
aa 

2110 IF SEC = ® THEN 2309 

2128 IF IND = 11 THEN GOSUB 3ß@#8: IF ERR THEN 2Ad9 

2138 IF PEEK (512 + IND) = ö THEN 2309 

2148 IF PEEK (512 + IND} = 255 THEN 2199 

2158 N$ — tn 

2169 FOR I = 544 + IND TO 516 + IND STEP — 1 

2178 IF PEEK (I) < > 16@ THEN 2200 

2188 NEXT 

22006 FOR J = 515 + IND TO I 

2218 NS = NS + CHR$ ( PEEK (J} - 128): NEXT 

2228 RETURN 

23008 ERR = 1: RETURN : REM Catalog-Ende 

2498 ERR = 2: RETURN : REM I/0-Fehler 

2997 REM RWTS-Aufruf 

36@@ IOB = PEEK ( PEEK (996) + PEEK (997) * 256) * 256 + 
PEEK ( PEEK (999) + PEEK (1ß0ß) * 256) 

sdld RWTS = 768 

3#20 POKE 768,32: POKE 769,227: POKE 776,3: POKE 771,76: 
POKE 772,217: POKE 773,3 

3039 POKE IOB 15, PEEK (IOB + 1}: REM letzter Slot 

3d40 POKE IOB 16, PEEK (IOB + 2): REM letzter Drive 

3859 POKE IOB 1,SLOT * 16: REM neuer Slot 

3060 POKE IOB 2,DRIVE: REM neuer Drive 

3078 POKE IOB + 3,9: REM Volume-Nummer 

Sß89 POKE IOB 4,TRK: REM Spurnummer 

3090 POKE IOB 5,5EC: REM Sektornumnmer 

ZS1Ö0POKE IOB + 8,9: REM Low-Byte, Eingabepuffer 

311ß POKE IOB + 9,2: REM High-Byte, Eingabepuffer 

3128 POKE IOB + 12,1: REM Lesen 

3138 CALL RWTS:ERR = PEEK (IOB + 13): RETURN 


Quelldiskette einlegen: 
& : fortfahren 
&, : Kopie abbrechen 


Zieldiskette einlegen! 
& fortfahren 
&, : Kopie abbrechen 


Datei gesperrt: 

& ı Datei überschreiben 
&NAME: mit neuem Namen weiter 
&, : Kopie abbrechen 


Datei existiert schon: 

& : Datei überschreiben 
&NAME: mit neuem Namen weiter 
&, : Kopie abbrechen 


Fehlermeldungen 


Falscher Aufruf: 
Versuch eines Neustarts bei laufender Kopie 
(Kopie beenden oder mit "&,' abbrechen) 


Datei existiert nicht: 
Versuch, nicht existierende Datei zu kopieren 
(mit neuem Namen nochmal versuchen) 


Diskette schreibgeschützt: 
(Schreibschutzmarke entfernen und Kopie neu starten) 


I/0-Fehler: 
Laufwerk nicht geschlossen oder Diskette schadhaft 
{andere Diskette einlegen und Kopie neu starten) 


Diskette voll: 
Datei paßt nicht mehr auf Zieldiskette 
(unvollständige Datei löschen) 


STARTUP 


181 REM & STARTUP x 

118 HOME : PRINT "Ramdisk geladen 

128 PRINT CHR$ (4)'"BLOAD RAMDISKLC" 

130 POKE 2492,96: POKE 25984,96: CALL 24895 

14% FRINT "Tess und Iinitialisiert!" 

1568 PRINT CHR$ (4)"BRUN AS,FILER" 

160 HIMEM: PEEK (109) + PEEK (11ß) » 256 + 7 x 38: REM 
218 Bytes für Strings 

17® ONERR GOTO 309 

188 READ A$: PRINT "Datei "A$; 

198 & A$,",S3'": PRINT " übertragen" 

2Bd GOTO 189 

299 REM Fehlerbehandlung 

30 IF PEEK (222) = 42 THEN PRINT : PRINT "Übertragung 
beendet": END 

318 IF PEEK (222) 6 THEN PRINT " existiert nicht": GOTO 
189 

328 IF PEEK (222) 8 THEN PRINT CHR$ (7): PRINT 
"Diskettenfehler': END 

338 IF PEEK (222) = 9 THEN PRINT CHR$ (7): PRINT "RAM-Disk 
voll": PRINT CHR$ (4)"DELETE"A$",S3": END 

34 POKE 763,166: POKE 764,222: POKE 765,76: POKE 766,25: 
POKE 767,212: POKE 117, PEEK (218): POKE 113, PEEK 
(219): CALL 763 

AÄB DATA STARTUP ,, RAMDISCLC, AS. FILER, ENDUP 











& in INTUS-Lernprogramme, Demo-Disketten und den Gesamt- 
Gomputer unterstutzies Lernen katalog erhalten Sie bei den meisten Apple-Fachhänd- 
Maschinenschreiben, Basic, Wortschatztrainer, Computer-Simulator, Schnell- lern, in Computer-Fachabteilungen und bei Pandasoft. 
lesen, Rechtschreibtrainer, usw. K 


® Programme für Apple Ile/lic/teilw. +. 
@ Demo-Diskette mit 8 Programmen und 7 Denkspielen DM 10,— INTUS SOETWARE 
® Gesamtkatalog mit über 200 Titeln kostenlos. Kaiserstraße 21, 7890 Waldshut, Telefon 07751/7920 
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AS.FILER 
1 . = — — 
2 * = 
3 . Applesoft-Filer ” 
4 “ “ 
5 .—-- _--— = ———un # 
6 

: ORG $8EA4A 

8 

9 * Neu speichern mit: BSAVE AS,FILER, A$SEA4, L$92C1 

18 x Nach BRUN: HIMEM maximal auf 36312 ($8DD8) setzen 

1l 

32 PAGES BQU 1 ‚minimale Seitenzahl des Puffers 
13 ACC EQU $45 ;Akkumulator hierher retten 

14 XREG EQU $46 :X-Register hierher retten 

15 YREG EQU 947 ‚Y-Register hierher retten 

16 INDEX EQU $5E ‚Stringdeskriptor (ohne Länge) 

17  MEMSIZE EQU $73 :<-> HIMEM 

18 CHRGET EQU $El ;Zeichen aus Quelltext holen 

19 GHRGOT EQU $B7 ;letztes Zeichen nochmal 

2B ERRFLG EQU %D8 ;"ONERR GOTO"-Flag 

21 IOB EQU $EB ‚Adresse des IOB 

22 FMPL EQU $ED ;Adresse der FMPL 

23 LEN EQU $EF ;Länge bei Namensbestimmung 

24 SDINDX EQU $F9 ‚Index auf Slot oder Drive 

29 BUFRNGE EQU $FA ‚Umfang des Puffers 

26 

2 FM EQU $3D6 ‚Sprung zum File-Manager 

28 GETFMPL EQU $3DC ;Adresse der FMPL bestimmen 

29  GETIOB EQU $3E3 ;Adresse des IOB bestimmen 

30 AMPER EOU- SSE5 ;&-Vektor 

Sl 

52 ILLOERR EQU $E199 UTLEEGAL QUANTITE" 

33 MEMERR EQU $D41d ‚OUT OF MEMORY" 

34 ERRENT EQU $D4A2A ;Fehlerausgabe (Einsprung) 

35 CRDO EQU $DAFB ;CR ausgeben 

36 OUTDO EQU $DB5SC ;Zeichen ausgeben 

37 CHKCOM EQU $DEBE ‚prüfen ob Komma folgt 

3 SYNERR EQU $DECY "SYNTAX" 

39 FRMEVL EQU $DD7B ;Ausdruck auswerten 

ad ISLETC EQU $EBT7D ;prüfen, ob Buchstabe 

al FRESTR EQU $ESFD ;Stringdeskriptor freigeben 

42  HANDLERR EQU $F2E9I ;Fehlerbehandlung 

43 

44 *-—-——-—----—-—----———- Initialisierung -———-----———-----——----..% 
45 

46 INIT LDA #<COPY ‚Adresse 

47 LDY #>COPY der COPY-Routine in 

48 STA AMPER+1 ; &-Vektor eintragen 

49 STY AMPER+2 

50 JSR GETFMPL ‚Adresse der FMPL 

Sl STY FMPL ; holen 

52 STA FMPE+l 

53 JSR GETIÖB ‚Adresse des IOB 

54 STY IOB ; holen 

55 STA IOB+l 

56 LDY #9 :Status für 

Dr Ser :SrALls ; Neustart 

58 INY ‚Index auf Slot 

59 LDA (IOBYy,.Y ‚zuletzt 

6d LSR ; benutzten 

61 LSR ae lot 

62 LSR durch 16 

63 LSR 

64 STA PRIMSLT ‚ als Ersatzwert 

65 STA SECSLT ; eintragen 

66 INY 

67 LDA (IOB),Y ;letzten Drive als 

68 STA PRIMDRVE ‚ Ersatzwert 

659 STA SECDRYE ‚eintragen 

78 Rs 

el 

TE #--------- Kopieren -----------———-----——---—— 
78 

74 GOPY CMP #',! ;Komma 

75 BNE NOCOM ; bricht Kopie ab | 
76 JSR CHRGET ‚Textzeiger erhöhen 

Br JMP ENDCOPY ; und Kopie beenden 

78 NOCOM LDX STATUS ‚Status = ß, 

79 BEQ NEWCOPY ; d.h. neue Kopie 

80 GPX #1 ;Quelldiskette eingelegt? 

8l BNE NOTRD 

82 JSR CHKEOS ;‚Endmarker muß folgen 

853 JMP RDBUFI 

34 NOTRD cCPX #2 ;‚Zieldiskette eingelegt? 

85 BNE NOTWRT 
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JSR 
JMP 
CPX 
BNE 
JSR 
BNE 
LDX 
LDA 
JSR 
JMP 
NOTLCKD UJSR 
BNE 
DELETE LDX 
LDA 
JSR 
JMP 
NEWNME JSR 
JSR 
JMP 


CHKEOS JSR 
BNE 
RTS 
ILLCALL LDA 
JMP 


* neue Kopie 


NEWCOPY LDA 
STA 
STA 
SEC 
LDA 
SBC 
STA 
LDA 
SBC 
STA 
BC 
SBC 
BCS 
MEMERRl JMP 


NEWCOPYl JSR 
LDA 
CMP 
BNE 
LDA 
SBC 
SETFLAG STA 


* Quelldatei 


LDX 
STA 
DEX 
JSR 
BEQ 
JMP 
FLEFND Er 
LDA 
AND 
STA 


* Quelldatei 


LDX 
JSR 
BEQ 


* Quelldatei 


RDBUF LDA 
BNE 
LDA 
BNE 


RDBUF1 JSR 
BEQ 
STA 
ELC 
LDY 
LDA 
SBC 
STA 
INY 
LDA 
SBC 


CHKEOS 
OPEND1l 
#3 
NOTLCKD 
CHRGOT 
NEWNME 
+14 
#58 
CALLFM 
DELETE 
CHRGOT 
NEWNME 
+14 
+$5 
CALLFM 
OPEND2 
GETDST 
CHKEOS 
OPENDZ 


CHRGOT 
ILLCALL 


+5 
EXIT® 


beginnen 


#0 
LSTPASS 
OPNFLG 


#<COPY 
MEMSIZE 
BUFRNGE 
#>COPY 
MEMSIZE+1 
BUFRNGEH+L 
MEMERR1 
#+PAGES 
NEWCOPYI1 
MEMERR 


GETNME 
PRIMSLT 
SECSLT 
SETFLAG 
PRIMDRVE 
SECDRVE 
SAMESD 


eröffnen 


#1 
ALLOCATE 


OPEN 
FLEFND 
EXIT 

+$7 
(FMPL),Y 


#Z2@1111111 


EIbLERrE 


‚Endmärker muß folgen 


‚Datei gespert? 
; nein, dann weiter 
‚Endmarker? 
ja, dann überschreiben 
‚zweiter Puffer 
;"UNLOCK" 
‚aufschließen 
und löschen 
;Endmarker? (Status 4) 
‚ nein, dann neuer Name 
‚zweiter Puffer 
; "DELETE! 
‚existierende Datei löschen 
und nochmal versuchen 
;neue Zieldatei 
;‚Endmarker muß folgen 
nochmal versuchen 


;‚Endmarker? 
: nein, dann Fehler 


; "ILLEGAL CALL" 
;Fehlermeldung 


‚noch nicht letzter Durchgang 
;‚Zieldatei noch geschlossen 


‚Pufferumfang 
; berechnen 


‚negativ, dann Fehler 

;Mindest-Seitenzahl? 
ja, dann weiter 

;"OUT OF MEMORY" 


;Quell- und Zielname einlesen 
;:Quell- und Ziellaufwerk 
gleich? 


;= 6, d.h. gleiches Laufwerk 


‚Neuzuweisung 

‚ verhindern 

‚erster Puffer 

‚Datei eröffnen 

;kein Fehler, dann weiter 
SIBTLE NOT EBOUND! 

‚Index auf Dateityp 
‚Dateityp 

; {Lockbit löschen} 

‚ eintragen 


positionieren 


+9 
POSITION 
RDBUF1 


‚erster Puffer 
‚auf Null positionieren 
‚weiter mit einlesen 


schubweise lesen 


SAMESD 
RDBUF1 
#1 

RTNOPN 


READ 
OPEND 
LSTPASS 


+6 
BUFRNGE 
(FMPL),Y 
BUFRNGE 


BUFRNGE+1 
(FMPL),Y 


‚ein Laufwerk? 
;‚ nein, dann weiter 
; "INSERT SOURCE DISK" 


‚kein "END OF DATA" 
‚ansonsten letzten Schub 
; markieren 
‚Index auf Pufferlänge 
‚Differrenz zwischen 
; vorgegebener Pufferlänge 
; und dem Restpuffer 
gibt die Länge des letzten 
Durchgangs an 





17 


18 


174 


25 
176 
177 
178 
179 
18B 
181 
182 
183 
184 
185 
186 
187 
188 
189 
199 
191 
192 
193 
194 
195 
196 
197 
198 
199 
209 
2081 
202 
203 
204 
265 
206 
287 
288 
289 
21 
2ll 
212 
213 
214 
215 
216 
217 
218 
219 
226 
221 
222 
223 
224 
225 
226 
Dot 
228 
229 
230 
23) 
232 
233 
234 
235 
236 
237 
238 
239 
240 
241 
242 
243 
244 
245 
246 
247 
248 
249 
258 
251 
252 
253 
254 
255 
256 
257 
258 
259 
269 
261 


OPEND 


OPEND1 


OPEND2 


OPENDS 


RTNOPN 


* Zieldatei positionieren 


POSD 


STA BUFRNGE+1 


LDA 
BNE 
LDA 
BNE 


LDA 
BNE 
LDX 
STX 
LDX 
JSR 
LDY 
LDA 
BPL 
LDA 
BNE 
TAA 
BNE 
LDA 
STA 
JMP 


LDX 
STX 


JSR POSITION 


* Zieldatei eröffnen 


SAMESD 
OPEND]l 
#2 

RTNOPN 


OPNPLG 
WRTBUF 
#4 


ALLOCATE 


#14 

OPEN 

+87 
{FMPL),Y 
OPENDS 
#3 
RTNOPN 


POSD 
#4 
STATUS 
EXIT 


#)4 
OPNFLG 


x Zieldatei schreiben 


WRTBUF 


JSR 
LDA 
BNE 
JMP 


WRITE 
LSTPASS 
CLOSED 
RDBUF 


* Zieldatei schließen, 


CLOSED 
ENDCOPY 


DONE 


* Dateiname(n} auswerten 


GETNME 


COPYNME 


GETDST 


GETNMEl 


SYNERRI 
ILLOERR1 
CHKLET 


CHRLOOP 


CHRLOOP1 


COMLOOP 


JSR 
LDA 
STA 
RTS 


LDX 
JSR 
LDX 
LDA 
STA 
DEX 
BPL 
JSR 
BEQ 
JSR 
LDX 


STX 
JSR 
JSR 
STA 
LDX 
LDY 
JSR 
BCS 
BNE 
CPX 
BNE 
JMP 
JMP 
JSR 
BCG 
BCS 


JSR 
BCS 
BEQ 
ORA 
STA 
GPY 
BGG 
JSR 
BCS 


CLOSE 


#9 
STATUS 


#0 
GETNMEL 
#29 


PRIMNME, X 
SECNME, X 


COPYNME 
CHRGOT 
DONE 
CHKCOM 
+39 


SDINDX 
FRMEVL 
FRESTR 
LEN 
SDINDX 
#-1 
GETCHR 
SYNERR1l 
CHKLET 
#1 
COMMA 
SYNERR 
ILLQERR 
ISLETC 
SYNERRI 


CHRLOOPI1 


GETCHR 
EOSTR 
COMMA 


‚zwei Laufwerke? 
ja, dann weiter 
;"INSERT DESTINATION DISK" 


‚Zieldatei schon eröffnet? 
; ja, dann weiter 
;Neuzuweisung 

möglich 
‚zweiter Puffer 


‚Index auf Dateityp 

;Datei gesperrt? 

‚nein, dann weiter 

AUNETER LOCKERE! 

‚unbedingt 

;Fehernumnmer <> ß, 

: d.h. Datei existierte nicht 
:UNFTLE ALLREADT EAISTS" 


‚Meldung an Benutzer 


:zweiten Puffer 
als eröffnet markieren 
:auf Null positionieren 


;Puffer schreiben 

;‚letzter Durchgang? 

; ja, dann fertig 

‚ ansonsten nächster Schub 


fertig 


;Neustart möglich 


‚ersten Namen überprüfen 


‚ersten Namen 
; in zweiten Puffer 
eintragen 


‚zweiter Name? 

“nein, dann lertig 
:Komma muß folgen 
‚zweiten Namen überprüfen 


‚retten 

;Ausdruck auswerten 

‚String wieder freigeben 
;Stringlänge eintragen 
‚Index auf 1. oder 2. Puffer 
‚Index auf String 

‚erstes Zeichen holen 
;leerer String verboten 
:kein Komma, dann weiter 
:X= |, d.h. erster Name 
;Komma bei Zielname erlaubt 
SISINTAR! 

US TLLEGLL QUANTITT 

;prüfen ob Buchstabe 

:kein Buchstabe -> Fehler 

‚ ansonsten eintragen 


‚nächstes Zeichen 
(Ende erreicht) 
: {Komma gefunden) 


+2180R0088 ;Bit 7 = 1 


PRIMNME-1,X 


#29 
CHRLOOP 
GETCHR 
BOSTR 


; (-1 wegen INX bei GETCHR) 
‚maximale Länge erreicht? 
; nein, dann weiter 
‚weitersuchen bis Komma 
: oder Stringende 


COMMA 


COMMAL 


COMMAZ 


NOTDRVYE 


GETPAR 


EOSTR® 


EOSTR 
EOSTR1 


RTNGN 


GETCHR 
GETCHRI 


RTNGC 


*—- File-Manager-Aufrufe 


READ 


WRITEL 
WRITE2 


BNE 


STY 
ST 
LDX 
BEQ 
LDX 
JSR 
CMP 
BNE 
LDA 
BNE 
CMP 
BNE 
INX 
LDA 
STA 
JSR 
BCS 
SBC 
BEQ 
CMP 
BCS 
STA 
JSR 
BCS 
BEQ 
BCE 


LDY 
BEQ 
LDX 
LDA 
GPY 
BCS 
STrA 
INX 
INY 
BNE 
RTS 


INX 
INY 
CPY 
BCS 
LDA 
CMP 
CLC 
RTS 


LDY 
LDA 
STA 
INY 
LDA 
STA 
LDX 
LDA 
BNE 


LDX 
LDY 
BNE 
TA 
BNE 
RTS 
DEX 
DEY 
TYA 
LDY 
STA 
INY 
TXA 
STA 
LDX 
LDA 
PHA 
INY 
LDA 
STA 
INY 
LDA 
STA 
PLA 
BNE 


COMLOOP 


YREG 
XREG 
SDINDX 
COMMA2 
#14 
GETCHR1 
#'D' 
NOTDRVE 
#3 
GETPAR 
Ei 
SYNERR1 


+8 

ACC 
GETCHR1 
SYNERR1 
#'"5'-1 


ILLOERR]1 


ACC 


ILLOERR1l 
PRIMDRVE,X 


GETCHRI 
EOSTRY 
COMMALl 
SYNERR1 


YREG 
RTNGN 
XREG 
+" 11 
+30 
RTNGN 


PRIMNME-1,X 


EOSTRLl 


LEN 
RTNGC 


(INDEX), Y 


#1, 


#$6 
BUFRNGE 


(FMPL),Y 


BUFRNGE+1 
(EMPL) NY 


#58 
#53 
RDWRT 


BUFRNGE+1 


BUFRNGE 
WRITE2 


WRITEL 


+6 


(EMPL) N 


(FMPL),Y 
#+14+8 
+54 


MEMSIZE 


(FMPL).,Y 


MEMSIZE+1 
(FMPL).Y 


CALLFM1 


‚Indexe 

retten 
;Index auf Slot oder Drive 
;®, dann weiter 

ansonsten auf Zielparameter 
‚"D!" oder "5" muß folgen 


;‚Maximalwert + 1 


‚weder "5" noch "D" 
‘nach Drive kommt Slot 
;Maximalwert + 1 


;Parameter 

; muß folgen 

‚aus ASCII wird Hex 

;ß8 ist verboten 

‚mit vorgegebenem Wert 
vergleichen 

‚Parameter eintragen 


‚C-Flag geht vor Z-Flag 
:noch ein Komma -> weiter 
;kein Ende -> Fehler 


;wenn Ö, wurde kein 2. Namen 
angegeben -> belassen 

;altes Register (vor COMMA) 

;Rest mit Blanks 

‚ auffüllen 


; Index 
‚ erhöhen 
‘Ende erreicht? 


; ja, dann zurück 
;Zeichen holen 


:A=1 bei Komma 


‚GC = 1 bei stringende 


+ 


‚Index auf Pufferlänge 
;‚Pufferlänge 
‚ eintragen 


‚erster Puffer 
‚IREAD" 


;beim Schreiben muß 
‚ die Länge des Puffers 
; um l erniedrigt werden 


;Länge = ß, 


ne 


ı Tertig 
‚eintragen 


;Index auf Pufferlänge 


‚zweiter Puffer 
SEN RET-TE! 


;Pufferaädresse 


eintragen 


;Befehlsnummer 


‚unbedingt 
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POSITION LDY 
LDA 
POSN1 STA 
INY 
CPY 
BNE 
LDA 
BNE 


OPEN LDA 


x eigentlicher Aufruf des 


CALLFM EDT 
BNE 


CLÜSE LDX 
LDA 
CALLFMl LDY 
CALLFM2 PHA 
SETFMPL LDA 
STA 
INX 
INY 
CRT 
BNE 
LDY 
PLA 
STA 
INY 
LDA 
STA 
LDX 
JSR 
LDY 
LDA 
EMP 
BEQ 
CMP 
BEQ 
CMP 
BNE 
JSR 
STA 
LDA 
BNE 
NOTDF CMP 
BNE 
LDA 
RTNCFM TAX 
RTS 
WPERR LDA 


+$2 
+9 
(FMPL),Y 


+96 
POSN1 
+$A 
CALLFMl 


#$1 


+4 
CALLFM2 


+14+8 
#52 
#$C 


PLTABLE,X 
(FMPL),Y 


#$12 
SETFMPL 
+9 


(FMPL).,Y 


+52 
(FMPL),Y 
ALLOCATE 
FM 

#$A 
(FMPL),Y 
#4 

WPERR 

1) 

EXIT 

#9 

NOTDF 
CLOSE 
STATUS 
#9 

EXIT$ 
+19 
RTNCFM 
#4 


#7 


;Index auf Record-Werte 
‚Länge und Offset 
; zu Null 


‚insgesamt 4 Bytes 


„NEOSTL LION! 


; "OPEN"! 
FM 


‚ab Volume eintragen 
;unbedingt 


‚zweiter Puffer 

EL GECOSEN 

‚ab Pufferadressen eintragen 
;Befehlsnummer merken 
‚Tabelle 

; übertragen 


:Ende erreicht? 
; nein, dann weiter 
;Index auf Befehlsnummer 


‚Index auf Subcode 
;:immer (Bereich ohne POS.) 


;Neuzuweisung? 
;File-Manager via Page 3 
‚Fehlercode 

;‚ holen 
‚schreibgeschützt? 


;I/0-Fehler? 


‚Diskette voll? 

‚nein, dann weiter 
‚ansonsten Datei schließen, 
; Neustart einstellen 

‚ und Fehlermeldung 

‚ an Benutzer 

‚Datei gesperrt? 


"FILE LOCKED" 
‚Zero-Flag aktualisieren 


;'"WRITE PROTECTED" 


%---—————  —— fFrehlerbehandlung -——-------———— + 


EXIT TSX 
INX 
INX 
TXS 
TAX 
BIT 
BPL 
JMP 
COPYERR  JSR 
LDA 
JSR 
TXA 
ORA 
JSR 


PLTABLE 
DFB 

PRIMDRVE DS 

PRIMSLT DS 
DA 
DS 
DA 
DA 
DA 


DFB 
SECDRVE DS 
SECSLT DS 
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ERRFLG 
COPYERR 
HANDLERR 
CRDO 
+ 
OUTDO 


zırgt 
OUTDO 
ERRENT 


Tabellen, 


50 
1 


2 
PRIMNME 
2 
PRIMFMWA 
PRIMTSL 
PRIMDAT 


;Return-Adresse 
: vom stack 


;ERRorFLaG gesetzt? 
‚ nein, dann weiter 
‚"ÖONERR GOTO" behandeln 


;Fehlernunmmer 


; ausgeben 


‚weiter mit Fehlerbehandlung 
Variablen, Puffer 


:FMPL-Tabellen 

‘Pos, $4 Volume-Nummer 
;Pos. 85 Drive-Nummer 
;:Pos, $6 Slot-Nunmner 
:Pos, $8 1. Namensadresse 
;Pos, $A Fehlercode 

;Pos. $C Arbeitsbereich 
;Pos, $E TSL-Puffer 

:;Pos. $19 Puffer-Adresse 


:;:Pos. $4 Volume-Nummer 
‘Pos, $5 Drive-Nummer 
;Pos. $6 Slot-Nummer 





FILETTF Ds 
DA 
DS 
DA 
DA 
DA 


STATUS DS 
OPNFLG DS 
LSTPASS DS 
SAMESD DS 
ALLOCATE DS 


PRIMNME DS 
SECNME DS 
PRIMFMWA DS 
SECFMWA DS 
PRIMTSL DS 
SECTSL DS 
PRIMDAT DS 
SECDAT DS 


Bytes 


L 
SECNME 
e 
SECFMWÄ 
SECTSL 
SECDAT 


;Pos. $7 Datei-Typ 

;Pos. $8 2. Namensadresse 
;Pos $A Fehlercode 

:Pos. $C Arbeitsbereich 
;Pos, $E TSL-Puffer 

;Pos, $1® Puffer-Adresse 


‚Aufrufstatus 

:<> B, wenn Zieldatei eröffnet 
:<> ® bei letztem Schub 

;®, wenn gleiche Laufwerke 
‚Flag für Dateineuzuweisung 


‚Puffer für ersten Namen 
;Puffer für zweiten Namen 
;File-Manager-Arbeitsbereich 
; umfaßt 45 Bytes 

; Track/Sector-List-Puffer 

‚ umfaßt einen Sektor 
;Quell-Datenpuffer 
;Ziel-Datenpuffer 


ProDOS-Begleitdiskette 


zu „ProDOS für Aufsteiger“, Band 2 
Soeben erschienen, DM 28,- 


Diese Begleitdiskette ist mehr als nur eine Diskette zum 
Buch, denn sie enthält neben etwa 20 Demoprogram- 
men eine ganze Reihe selbständiger und sofort einsatz- 
fähiger Programme, die eine wichtige Ergänzung zum 
Betriebssystem darstellen, z. B.: 


Besitzer 


Formatierungsprogramm 
Diskettenvergleichsprogramm 
Bad-Block-Programm 
DOS-3.3-Konvertierungsprogramm 
Blockeditor-Utility 
Directory-Utilities 
Zahlenarray-BSAVE/BLOAD-Utility 


Dateilleseprogramme zum Dump von Textfiles und 
anderen Dateien in ASCII- und Hex-Darstellung 

Dateikopierprogramm zum Kopieren beliebig großer 
Dateien (PROFID) 
Diskettenkopierprogramme für 1- 


und 2-Drive- 


Alle Programme laufen unter allen ProDOS-Versionen 
und können auch von Nicht-Programmierern problem- 
los eingesetzt werden. 


Hüthig Software Service 
Postfach 10 2869 : 6900 Heidelberg 1 








ProDOS-Fastboot 


oder wie man ProDOS in 6 Sekunden bootet 





von Arne Schäpers Das Booten unter ProDOS dauert etwa 
10 Sekunden. Das nachfolgende Pro- 
gramm vereinigt die zwei Systemdatei- 
en PRODOS und BASIC.SYSTEM zu ei- 
ner einzigen bootfähigen Gesamtdatei 
namens PBASIC, die nach PR+#6 in we- 
niger als 6 Sekunden eingeladen wird. 
Wer unter ProDOS häufig Programme 
durch Neubooten wechseln muß, wird 
deshalb diese Fastboot-Routine, die 
bei allen bisher bekannten PRODOS- 
(1.0.1, 1.0.2, 1.1.1) und BASIC-SYSTEM- 
Versionen (1.0, 1.1) funktioniert, zu 
schätzen wissen. 


nach einer Idee von Ulrich Stiehl 
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1. Urlader 


Über den Boot-Prozeß von ProDOS ist 
bereits detailliert geschrieben worden. 
Wer es ganz genau wissen möchte, kann 
darüber in der „ProDOS-Analyse“ nachle- 
sen. Hier folgen deshalb nur die logischen 
Stufen des Bootvorgangs bis zum Start 
des Hello-Programms „STARTUP: 


1. Das Programm auf der Controller-Karte 
liest den Sektor O auf Spur O nach $0800 
in den Speicher und springt nach $0801. 
Das soeben geladene Programm (,„Urla- 
der“) benutzt das Programm auf der Con- 
troller-Karte, um die zweite Hälfte des 
Blocks O0 (Spur O0, Sektor 2) zu lesen. 
Damit ist der Urlader vollständig im Spei- 
cher. 

2. Der Urlader lädt das Volume-Directory 
(Blocks 2-5) und sucht es nach dem Ein- 
trag „PRODOST ab. 

3. Dann lädt er die Datei PRODOS ab 
$2000 in den Speicher und springt nach 
$2000. Das Programm PRODOS reloziert 
sich selbst in die zwei Speicherbanks der 
Language-Card. 

4. Das Programm PRODOS liest nun er- 
neut das Volume-Directory ein und sucht 
es nach der ersten Datei mit der Namens- 
endung „.SYSTEM" ab. 

5. Das „.SYSTEM“-Programm wird ab 
$2000 in den Speicher geladen und von 
dort gestartet. 

6. Wenn es sich um das BASIC.SYSTEM 
handelt, so passiert danach folgendes: 
Das Programm kopiert (nichtreloziert) sich 
selbst in den Speicherbereich $9A00- 
$BY9FF und sucht nach einem CLEAR 
PREFIX und ONLINE die Datei „START- 
UP“ über GET FILE INFO, d.h. das Volu- 
me-Directory wird abgesucht, nunmenr 
aber über MLI-Befehle und nicht durch 
Laden der Volume-Directory-Blocks. Wird 
STARTUP gefunden, so kopiert das Pro- 
gramm die Befehlszeile „-STARTUP“ in 
den Input-Puffer, Es folgt ein Kaltstart des 
BASIC.SYSTEMs über $BEOO. 

Dieser Boot-Prozeß ist so komplex, daß 
jeder graue Haare bekommt, wenn er ihn 
modifizieren will. 


2. Die Idee 


Wer häufig Programme wechselt, muß 
häufig booten. Dies dauert jedoch unter 
ProDOS (ca. 9-10s) länger als unter DOS 
3.3 (ca. 4-5s), weil die ProDOS-System- 
dateien größer sind. Deshalb ist es wün- 
schenswert, diesen Prozeß zeitlich abzu- 
kürzen. 
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Zuerst soll geschildert werden, was man 
aus dem Boot-Prozeß eliminieren kann: 

1. Die Gerätekonfiguration, d.h. Speicher- 
größe, Zusatzkarten usw. sind immer 
gleich. Ein Test ist daher nach einer ein- 
maligen Installation nicht mehr nötig. Da- 
mit entfällt auch der ohnehin größtenteils 
nutzlose Relokator von PRODOS. 

2. Das insgesamt dreimalige Lesen des 
Volume-Directory ist auf den Befehl 
„PRODOS“" bzw. „-BASIC.SYSTEM“ 
zurückzuführen. Da über dieses Komman- 
do die Programme direkt aufgerufen wer- 
den können, dürfen sie nicht auf die vom 
Urlader bereits gelesenen Directory- 
Blocks zurückgreifen. Bei einem Boot „in 
einem Rutsch“ muß das Directory nur ein- 
mal gelesen werden. 

3. Wenn man jetzt noch den Urlader dahin- 
gehend modifiziert, zumindest einen Teil 
des Systems direkt an die endgültige 
Speicheradresse zu lesen, entfällt deren 
Verschieberoutine mit der Folge, daß bei 
einem Reboot ein wesentlich größerer 
Speicherbereich unversehrt bleibt. 


Unter Berücksichtigung dieser Besonder- 
heiten wurde ein Programm mit den Tfol- 
genden Charakteristika geschrieben: 

1. Es ist lauffähig unter allen bekannten 
Versionen (1.0.1, 1.0.2, 1.1.1). 

2. Man hat 5 freie Blocks mehr auf der 
Diskette. 

3. Die Ladezeit von PR#6 bis zur Meldung 
des BASIC.SYSTEMs wurde fast halbiert. 
Sie beträgt nun ca. 5.6s anstelle von ca. 
10s. 

4. Der bei einem Reboot unzerstörte Spei- 
cherbereich erstreckt sich von $1400 bis 
$61FF, also ein zusammenhängendes 
Stück von mehr als $4800 Bytes. Dies 
dürfte für die meisten Programme wäh- 
rend der Entwicklungsphase ausreichend 
sein. 

5. Alle anderen Eigenschaften des Boot- 
vorgangs sind unverändert, d.h. die Datei 
STARTUP ist nach wie vor fakultativ: Sie 
wird ausgeführt, wenn sie auf der Diskette 
gefunden wird, ansonsten erfolgt nur ein 
Kaltstart des BASIC.SYSTEMs. Das Präfix 
und die „zuletzt benutzte Unit“ (= Slot/ 
Drive) in der System Global Page sind 
Korrekt gesetzt. 


3. Einschränkungen 


Die neu angelegte Fastboot-Diskette sollte 
nur auf demjenigen Gerät eingesetzt wer- 
den, auf dem sie erzeugt wurde. Andern- 
falls können Probleme auftreten. Bei- 
spiele: 
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— Generierung auf einem System mit Uh- 
renkarte und Booten auf einem System 
ohne Uhrenkarte oder mit einer Uhrenkar- 
te in einem anderen Slot. 

— Generierung auf einem System mit 
RAM-Disk und Booten auf einem System 
mit 64K oder umgekehrt: Im ersten Fall 
führt das Ansprechen der vermeintlichen 
RAM-Disk zu einem unverhofften BRK, im 
zweiten Fall wird eine eventuell installierte 
RAM-Disk-Routine (auf der 64K-Karte) 
zerstört. 


Ein weiterer Nachteil soll nicht verschwie- 
gen werden: Ein „BRUN PBASIC“ oder 
„"PBASIC“ führt zu einem katastrophalen 
Absturz, weil das Programm an die falsche 
Startadresse geladen wird. Ein „BRUN 
PBASIC,A$6400“ hilft nicht weiter, denn 
hier bricht ProDOS mit einer Fehlermel- 
dung ab, weil dabei beim Ladevorgang das 
BASIC.SYSTEM überschrieben werden 
würde. Man muß also die PBASIC-Disket- 
te immer mit PR#6 oder allgemein PR#s 
starten. Die Fastboot-Routine Ist damit 
nicht für Festplatten gedacht. 


4. Bedienungsanleitung 


Eine auf das reine Handling beschränkte 
Schritt-für-Schritt-Kurzanleitung finden 
sie vor dem Listing des Programms 
MKBOOT.BAS. Der Ablauf der Erstellung 
von PBASIC ist folgender: 

Nach Angabe der Nummer des Slots, von 
dem aus PBASIC in Zukunft gebootet wer- 
den soll, wird das gesamte System aus 
den verschiedenen Banks (LC Bank 1, 
Bank 2 und 64K-Karte) zu einem Block 
zusammenkopiert, der dann auf der Ziel- 
diskette unter dem Namen PBASIC ge- 
speichert wird. 

Danach wird der Urlader auf dieser Disket- 
te so modifiziert, daß nicht mehr PRO- 
DOS, sondern PBASIC im Volume-Direc- 
tory gesucht wird. Außerdem lädt der Urla- 
der nicht mehr ab $2000, sondern ab 
$6400 in den Speicher. Damit wird das 
gesamte BASIC.SYSTEM direkt in den 
späteren Bereich übertragen. Der File 
PBASIC enthält noch ein kurzes Start-Pro- 
gramm, mit dem das MLI, REBOOT und 
der RAM-Disk-Treiber in die entsprechen- 
den Banks bzw. in die 64K-Karte AUX 
kopiert werden. Danach wird von PBASIC 
aus die Routine im Uriader, die das gela- 
dene Volume-Directory vorher nach 
„PBASIC“ abgesucht hat, so modifiziert, 
daß bei einem zweiten Durchlauf die Exi- 
stenz der Datei „STARTUP" überprüft 
wird. Wenn sie vorhanden ist, so wird der 
Befehl „-STARTUP” simuliert. Ansonsten 
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erfolgt nur ein Kaltstart des BASIC.SY- 
STEMs über $BEOO. 


5. Technische Einzelheiten 


MKBOOT.OBJ stellt folgende Bereiche 
für PBASIC zusammen: 

$8F00-$8FFF: System Global Page 
$8E00-$8EFF: BASIC Global Page 
$6A00-$8DFF: BASIC.SYSTEM. Die letz- 
ten $0400 Bytes sind der Pufferbereich 
des BASIC.SYSTEMs und damit entbehr- 
lien. 

$3A00-$69FF: MLI, $0600 Bytes sind Puf- 
ferbereiche, die sich aber je nach Version 
in den Adressen unterscheiden. 
$3700-$39FF: REBOOT von $D100-DSFF 
aus der Bank 2 der LC 

$3500-$36FF: RAM-Disk-Driver aus 
$0200-$03FF aus der 64K-Karte, bei 64K- 
Maschinen aus den unteren 64K („Müll“) 
$34E0-$34FF: Reset, BRK und NMI-Vek- 
toren von $O3EO-$O3FF 

DOBOOT.OBJ wird an den Anfang von 
PBASIC gesetzt, d.h. belegt den Bereich 
$3400-34DF. 


Der Urlader lädt PBASIC ab $6400 in den 
Speicher. DOBOOT.OB,U ist deshalb nur 
ab dieser Adresse lauffähig! 

Hier werden dann das MLI, die REBOOT- 
Routine und der RAM-Disk-Driver zurück- 
kopiert. Der RAM-Disk-Driver muß dabei 
vor den Reset-Vektoren kopiert werden, 
weil er sonst bei 64K-Maschinen die Vek- 
toren in den unteren 64K überschreiben 
würde. 

Nachdem alle Verschiebevorgänge abge- 
schlossen sind, wird es kompliziert: 

Als nächstes muß Applesoft kaltgestartet 
werden. Ein „JSR $E000“ wäre zwecklos, 
weil der Stack innerhalb der Initialisie- 
rungsroutine neu gesetzt wird. Deshalb 
bleibt nur der Umweg über die COUT- 
Vektoren: Wenn Applesoft das Prompt U 
bzw. ] (= $DD) drucken will, wird es über 
GETBAS abgefangen, d.h. COUT springt 
zu GETBAS als vermeintlicher Ausgabe- 
routine, nachdem CSWL (= $0036- 
$0037) entsprechend gesetzt worden 
sind. (Interessanterweise druckt Applesoft 
das erste Return vor dem Prompt, bevor 
die Initialisierung vollständig beendet ist. 
Deshalb muß auf $DD getestet werden, 
bevor es innerhalb von DOBOOT.OBJ 
weitergeht.) 


In GEIBAS werden jetzt für COUT die 
Vektoren des Monitors ($FDFO) ersetzt, 
HIMEM und FRETOP ($0070 und $0074) 
auf $9600 (dezimal 38400) eingestellt so- 
wie das Trace-Flag $00F2 für das 
BASIC.SYSTEM gesetzt. 
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Als nächstes wird die Suchroutine inner- 
halb des Urladers so umgebaut, daß nicht 
mehr PBASIC, sondern STARTUP ge- 
sucht wird. Der Pointer innerhalb der gela- 
denen Directory-Blocks ($4B) wird wieder 
auf den Directory-Anfang gesetzt, und der 
Vergleich darf nicht mehr Storage-Type 
(Speichertyp) und Namenslänge ein- 
schließen, weil STARTUP auch einen Sto- 
rage-Iype gleich 1 haben darf. Die Ver- 
gleichsschleife endet deshalb nicht mehr 
mit „BPL“, sondern mit „BNE“. Dabei 
muß aber geprüft werden, ob der gefunde- 
ne File-Eintrag nicht gelöscht ist: Das er- 
ste Byte (Storage Type + Namenslänge) 
wird separat geladen und das nachfolgen- 
de „BIT $D4“ wird zu „BEQ nicht gleich“. 
Der Exit aus der Suchroutine wird eben- 
falls modifiziert: Bei „gefunden“ folgt RTS 
mit Carry clear, bei „nicht gefunden" folgt 
RTS mit Carry set, also nicht „##* UN- 
ABLE TO LOAD PRODOS xxx". 

Als letztes wird der Dateiname „STÄART- 
UP” sowohl in die Suchroutine als auch 
nach $0200 (Input-Puffer für BASIC) ko- 
piert. Danach folgt der Aufruf der Suchrou- 
tine. 

Wenn Ihnen das noch nicht kompliziert 
genug war, beschäftigen Sie sich mit dem 
nächsten Schritt: 

$0038-$0039 sind mit SETIOV auf die 
Routine FAKECR gesetzt worden, d.h. 
wenn das BASIC.SYSTEM nach dem 
Prompt zu ersten Mal einen Input erwartet, 
wird über GETLN nicht GETKEY, sondern 
FAKECR als vermeintliche Input-Routine 
aufgerufen. 

Innerhalb von FAKECR werden zuerst die 
Monitor-Vektoren in $0038-$0039 ge- 
setzt, d.h. FAKECR hängt sich selbst beim 
ersten Aufruf ab. 


Wir sind aber momentan noch innerhalb 
der Installationsroutine DOBOOT.OBJ: 
War die Suche nach STARTUP erfolgreich, 
wird ein Kaltstart des BASIC.SYSTEMs 
durchgeführt. Beim ersten Aufruf von 
GETKEY produziert FAKECR ein Return 
und kehrt, nachdem es sich selbst abge- 
hängt hat, mit X=8 und A=$8D=Return 
zurück. Das BASIC.SYSTEM „glaubt“ 
jetzt, daß hier jemand nach 8 Zeichen Ein- 
gabe auf die Return-Taste gedrückt hat. Im 
Input-Puffer steht noch „-STARTUP“ vor 
dem Return, und genau dieses Komman- 
do führt das BASIO.SYSTEM dann auch 
aus. 

Wenn STARTUP nicht gefunden wurde, 
wird FAKECR vor dem Kaltstart des BA- 
SIC.SYSTEMs einmal aufgerufen, hängt 
sich dabei selbst ab, und die Werte von A 
und X werden ignoriert, d.h. wenn das 
BASIC.SYSTEM danach GETLIN aufruft, 


wird bereits beim ersten Mal ein Zeichen 
von der Tastatur gelesen. Der Index (X- 
Register) ist 0, und die Zeichenfolge 
„"STARTUP" im Input-Puffer wird mit den 


eingegebenen Zeichen überschrieben. 
s 


MKBOOT.OBJ Hex-Dump 


BSAVE MKBOOT.OBJ, A$S3000, 125 
$30ßd: Ac d6 38 AC 81 30 208 56 
$3608: 30 A9 BF 85 Pl A9 BF 85 
$3010: B3 A2 26 20 BB BL AY9 FF 
$3018: 85 B1 A2 30 2C 8B CO 20 
93020: BB Bl A9 D3 85 Bl A2 83 
53028: 2C 83 Cd 20 dB BL 2C 82 
$3030: CB A9 B3 85 Pl A2 P2 EE 
53938: Bl d1 208 B8 dl CE Bl Bl 
83040: AY9 63 85 Pl A2 Bl AB EB 
53848: 20 dd dl A2 #3 A9 Bd SD 
$3059: 38 SE CA 19 FA 60 AB 1B 
$3058: BY 65 38 99 FF dB 88 DB 
$3066: F7 BA BB 84 2 60 BD B2 
$3868: Ch 8D da Ch BL BB 31 B2 
$3076: C8 DB F9 C6 BL C6 B3 CA 
$3078: DB F2 8D A2 CO 8D BA Cd 
$3080: 6B AD FE B2 8D AA 30 29 
$3088: BO BF 88 A9 SB DE 16 A2 
$3#9#: BB BC AF 36 BD BE 30 99 
$3#98: BE 98 ES EB AF 98 F2 29 
S30Aß: PO BF 81 A9 38 8D FF P2 
$3BA8: 6A #3 BB BO 90 Bi Be de 
$30B9: Bl 92 93 BA B5 AB 1D 49 
$30B8: 45 46 47 48 49 AA Bl 4A 
$30C9: 24 DA 18 EA f6 62 64 59 
$30C8: 42 Al 53 49 413 dB do 90 


DOBOOT.OBJ Hex-Dump 


BSAVE DOBOOT.OBJ, A$6499, L222 


$64AßB: 28 AF 64 A9 99 85 Bl A2 
$6Aß8: 3B 2C 8B CO 2C 8B Ch A9 
86410: FF 28 B8 Bl A2 03 2C 83 
$6418: CA 2C 83 CO A9 D3 20 00 
$6426: Bl A9 EE 8D BB DB 2C 82 
66428: CA A2 B2 EE Sl Öl A9 83 
$6430: 28 BB BI CE Bl Öl A2 Bl 
96438: AB Ef AS 83 20 dB dı A2 
$6449: 63 BD AC 64 95 36 CA 1 
$6448: F8 AC dO EA 5D 64 59 64 
56459: AY 1B 85 38 A9 FD 85 39 
$6458: A2 B8 AY 8D 69 C9 DD DO 
$6460: FB A9 FB 85 36 AY FD 85 
66468: 37 A9 96 85 70 85 7A 49 
$647B: Ab 85 F2 20 2F FB 20 58 
$6478: FC A2 67 BD D6 64 9D Bd 
$6480: B2 29 7F SD 62 89 CA 19 
$6488: F2 A9 AD 8D dB B2 a9 GC 
56490: 85 AB A9 DÖ 8D BC 68 A9 
56498: FÜ 8D CO B8 A9 6B SD C3 
$64Ad: PS BD FF 68 2 92 08 9 
$64A8: 03 20 50 64 AC OB BE AB 
$64Bß: 17 BY BE 64 99 FF üß 88 
$64B8: DB FT 84 BB 84 02 6 8D 
$6Acd: Ha Ch 85 03 Bl BB 31 B2 
$6408: C8 DA FS C6 Bl C6 B3 CA 
$64D9: DB F2 8D BA Ch 60 97 D3 
$64D8: DA C1 D2 DA D5.DB 90 00 
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ccp dlatentaechnik 


640 KByte-Drives für den Apple //c!! 


u: @ 5'4- od. 31r-Zoll-Format (Teac FD55/35-F) 
William F. Luebbert © FD55-F umschaltbar auf 35/40 Track 


Schnell und W = t ® Anschluß an die externe Laufwerkbuchse 
as IS wo @ Durch Einbauplatine (kein Löten) 640 KByte im Direktzugriff 
® Einfache Anpassung für DOS 3.3, UCSD-Pascal und PRODOS 


ae ® 
e ızieni im Apple durch menügeführten Patch 


® ee 
Anpassung von CP/M in Verbindung mit einer Z 80-Zusatzplatine 
programmieren os; ” 
eiten /84 Abb. in Vorbereitung 


. Best.-Nr. 3098 ® anschlußfertig im Gehäuse . . : x»... .... DM 1090,— 
mit 


N Festplatten für Apple Il (//e) 
Apple I/I+-/lle DW 58-'sFr53,40 /Sa52,- 05% A (Slimline) 


Besitzer eines Apple II, II+ oder @ Booten direkt von der Festplatte in DOS 3.3, UCSD-Pascal, 


/ Ä PRODOS und CP/M 2.2 / 3.0 
OS EILE DE Vale © Gemischtbetr. mit 35/40/80/160 Track-Drives 


Arbeitshilfe, um schnelle und ® Copy- und Install-Programme im Lieferumfang 
elegante Programme auf ihrem @ Umfangreiches Manual 


: ® z.B. 12 MB form, incl. Netzteil u. Contr., 
el en Be anschlußfertig an Ihren Äpple . . . - u. DM 3698,— 


2000 wichtigen Speicheradres- 640 KByte-Drives für Apple Il (//e) 


sen; dazu alle wichtigen ROM- @ 5'/4- od. 3"e-Zoll-Format (Teac FD55/35-F) 
Routinen. Für den schnellen @ FD55-F umschaltbar auf 40 Track (Apple kompatible) 

ai ’ ' @ Installationssoftware für DOS 3.3, UCSD-Pascal, CP/M 2.2, 
Zugriff sind Routinen und Spei- CPIM 2.23 (60K), PRODOS, AP22, ALS CP/M+ 
cheradressen in alphabetischer © Umfangreiches Handbuch 


und numerischer Reihenfolge © Anschlußfertige Auslieferung incl. Contr. und 2 Drives 

sortiert @ Diskstation 551l (2 Teac FD55-F, 12MB) . . . DM 1598,— 
ET © Diskstation 35ll (2 Teac FD35-F, 1.2MB) . . . DM 1580,- 

Viele Apple-Routinen, die Sie in 


den eigenen Programmen leicht 80 Zeichen + 64 K für Apple //e 
verwenden können, helfen @ und jetzt hinsetzen . . . . 2 2.2.22... DM 158,- 
Ihnen, Ihre BASIC-Programme 

zu beschleunigen und bei der 


Assemblerprogrammierung viel Alles für Ihren Apple 


Arbeit und Zeit zu sparen. s 
P Info bei: 


#. > überall, wo es gute ccp-datentechnik 


Se N yN gibt Herderstraße 12 — 2000 Hamburg 76 
Telefon 040/225676 


Jetzt neu von SYBEX 
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APPLE a DISKETTEN LAUFWERKE .- APPLE u n “ ı IBM '"' KOMPATIBEL ***'' IBM '"' KÖMPATIBEL 
Original Disk Ilm Conlroller + DOS 3.3 + Hdbuch M 995,— a abe KenpeD & Mon. Garantie Reparaturservice ' Alte Teile unterliegen eıner sorgfältigen Endkonlrolle und wir 
Original Disk Il (2 Laufwerk) B25,— BT SMENLUNGICES 


— ubernehmen daher volle Garanlie für die Funklionsfahigkeit, 
Duo-Bisk Station Slimline, 2 x 143K8B Chinon 995,— a a ae en JE | sowohl fur die gelieferten Leerplalınen, als auch für die Terlig 
Sıemens Disk-Laufw., 143KB, m. Kabel + Gehause 498, — na . . ‚ bestücklen Boards und Interface Karlen, die fasl ohne Ausnahme 
Abor-Disk-Laufw., Slimline, 143KB, m_Kab. + Geh 398. — ö 1 u 2 mit gesockelten IC's gelieferi werden 
Chinon Slimline, 143KB, Superleise, m.Kab +Geh 495, — Et al ö : tBM -- Kompatible Interface Karten und Mainboards -- IBM 
Teac 55F, 1 MB unf Kapazität, Shugaribus 498,— | i i j Disk Conlrolter Karte fur 2 Disk-Drives "KL-2020 DM  198.- 
Teac 55F, kpl,-ın Gehause, 40/80 Track, 1MByte ! e en ar Color Video Board, "KL-2050 DM ab 398- 
anschlußfertig, mit Umschallung 40/80 + Kabel 548, — ie & h Manochrome Video boards "KL-2060 DM ab 298,- 
Zweitlaufwerk für Appte Il C, 143 KB, mit Kabel 448,— Ä A: " ; ! RS 232 Drucker Interlace Karte KL-2074 DM  199,- 
APPLE -- INTERFACES + MAINBOARDS APPLE E Ä ER RE : Cenlronics Paralell Inlerface Karte KL-2072 DM  148,- 
Disk Gontroller f 2 Original o, kompat. Drives "D 89,— 5 nr a u = T : Multifunktion Karte, AAM-Bereich. RS232, 
Super-Gontrolfer £ 2x Teac 55F, mit Software 3- 188.— r 4 m 1 Be = Paralell, Clock, mit OK bestuckt "KL-2040 393 - 
80 Zeich-Karte mil 64K RAM + Softsw Elle { 99, — Das En a TEE ; : dto. wıe vor, jedoch mit 128K bestückt "KL-2041 488. 
80 Zeich-Karte il, m, Sollswitch, 2 Zeichensätze "DM 159, — gppLE-TASTATUREN+LEERGEHÄUSE+NETZTEILE- APPLE APPLE -- ORIGINAL + KOMPATIBLE - COMPUTER -- APPLE dto. wie vor, jedoch mil 256K bestückt "KL-2042 578,- 
16K RAM Erweiterung für Il und kompatibte 8 — Standard Einbau-Tastatur. ASCII, freibel 9 Tasten, APPLE Ile, B4KRAM, Ascii-Tastat- + UHF-Modul DM 1998 — 512K RAM Karte, mit O K bestuckt KL-2095 248,- 
Zaun In ne 73  Doppelbelg.aller Tasten, Groß+Kleinschr Nr N?6 DM 139,-—— APPLE IIe-Einstiegspaket = Compuler 64KRAM, dto_wıe vor, mit 128K bestuckl KL-2096 338,50 
Zul. IDIErIgen Santo IA ERMEROINBESTE REM 595 Tastatur wie vor,jedoch mil 15er Block Nr N67 DM 178,— + Philips-Monitor 18 Mhz grun + Siemens F122 - Multi \/O interlace Board, RS232, Disk-Conlroller, 
Printer-Grafik Interface, Epson kompatible ö AM Tastatur Nr N67, mit sep Gehäuse, kpl. m, Kabel DM 249,— Laufwerk 143K m Controller + Lerndiskelte DM 2998, — Centronics, Glock, Joyslick 
Gentronic-Paralell Text-Interface Karte 79  Seperate Taslatur IBM-Look, anschlußferlig mit APPLENC, 128 KRAM, ASCII Tastatur DM 2795, — und Lighipen-Port "KL-2071 568,- 
Printer-Grafik Interface, NE EAEOE KOnTBaube] 180 Kabel, Dopp. belegi.Tasten, freiprog-Funkt.Tasten DM 298,— APPLE II C. wıe vor, jedoch deutsche Tastatur DM 2998, — Eprom Writer Karle (bis 128K benutzbar) 598,- 
Anschluß Kabel [-Paralell + Grafik Interface 34 _ Seperale Tastatur, Eprom progr.-bar, Cursorblock MAGINTOSH Systern komplett m. Mouse+ Taslatur Hardısk/Winchester Host-Adapter Karle "KL-2022 ab 998,- 
Buffer Grafik-Inierface, benutzbar für Drucker Tastenfeld mit 24 Funktionen, Deutsch o ASCIi DM 398,— + Macwrite/Macpaınt, Systemguide-Disketie DM 5995,— Mainboard XT Version, 8 Slots 0 bestückt 
Epson/Nec/Itoh/Oktdata u andere m. 32K Buffer 2487 1 sergehauseSlandard.passendf Taslalur Nr. N26 DM 98— MEWA-48K, Apple kompat.. Nelzi 5Amp, Tasiatur mit 1 Boot-Eprom, 6 Eprom-Platze freı 'KL-1004 DM 6849,- 
Buffer Interface wie vor aber mil 64K Bulfer ei 595, gtouwievor jedoch passend fur 15er Tast N67 DM 119,— mit Dopp-Belegung + 0 freı Prog. Tasten, mil dio. wie vor, jedoch mit 128K bestuckt 'KL-1005 DM  739,- 
Aus BD Rab UNSEINIETISCERSLE El nz Leergehause wie Mewa 9000, für Einbau von zwei UHF-Mod,, ohne Firmware Eproms. DM 698,— dio wıe vor, jedoch mıt 256K besluckt "KL-t006 DM 829,- 
232C Serielle Interface Karte —  _ Stimline-Laufwerken + Tastaturanschluf, Plastıc DM 159,— MEWA-SAK, wıe vor jedoch mit 15er Block DM 728.— Beı den mit * gekennzeichnelen Artıkeln gehort zumLLieferumfang 


ee en I en Leergehäuse wıe vor, jedoch ın Metall-Ausfuhrung DM 198,— MEWA 9000er Serie, mıl seper.Taslal DIN 0. ASCII ein Manual_undz T ein Schaltbıld 
6522 Paralell Inlerface Karte a 5 149 —  Schaltnetzieile fur APPLE u kompalıble Rechner Hr a Preislisten + Prospekte kostenlos gegen frankierten Rückumschlag 
Clock Karte (Datum/Uhrzeit) Ein/Ausgabe "DM 1298 +5V/SA-BVIOBA +12Va5A 120 Ne nv -Prome urn _ DISKETTEN-BOXEN — Herner 
Eprom Writer Karte (2716 - 2764) s 129, — +57 5A -BWOSA +12V/2A -12Y/05A N?S5 DM 149,50 (12KROM), 4BK RAM DM 998,— Profi Disk Box m Schloß. Klars.-Deckel, 100 Disks DM  39,— 


IEEE-488 Interface Karte ei 394,— zn MEWA 9000-84-C, wie vor jedoch B4K RAM DM 1098— Disk Box mıt Klars -Deckel,ca 70 Diskellen 5" DM 2&— 


Logo-Karte mit Diskette und Handbuch 498, — k lin Tel u LES Einnilanimninkoi, wol wen h Harlbox für 10 Diskelten, mıl Klappdeckel DM 6.80 
Kusik-Karle maDiskeifeändttandbich 119 — App € Kasenpilakl eil Abehsbune used lin Tosduıhe, & KENIA HD -G Einpilagmpak, . HetlcH; 


ee ee erg, wi pie ii 1 Ok Die plegeb * Di Dar sl IBM -- Kompalible Leerplaiinen + Soards -- IBM 
Fr grün UM tm, — Disk Controller £ 2 Drives DM 39,— 





PAL Color Inlerlace Karle (UHF + Video) E 109,— eng, rn 


Yazıriı (peechiitzen - Silari] 
AGB Inlerface Karle (f Apple ll + Il+} 169,— : j : fr A re Arena DM — Color Grafik Video Board 69,— 
Wild Karte (kopiert über RAM-Bereich} "DM 119— mit BO-ZeichunKarte! i TUE NEOEN GERUERTBR TON i R9232 Interlace Karte 39, — 


= 
i . = MATMIK: UND TYPEMNAD - DINUCKER \ 
128K RAM Erweiterungs Karte m- Palchsoflware 398, — E a ee 
; - Pi; An? Iren, 1 ke ala Dak Pa Genlronics Paralell Interface Karle 39, — 
256K RAM Erweiterungs Karle m, Patchsoflware DM 498, — 128 K -i DM 898,— # 5 a OK LUSS MEN an in En 2 Bu = ee ne 
5809 Prozessor Exell-$ Interfacekarte + DM 398, — a t u en, >= 


j A Eprom Writer Interface Karte Fag— 
= 448, — SPEEOY TOMB, Dpsnakarpat DO wo DM F, 
alsineaak mmarsenongesil DM aan  Zariitkarin Ir App ke Fr en GERING ICXK. Ban ru Temmbepı.,. 10 Zn. Akad Mad DM Sl  MulilW/OBoard Ta 
& en ER P . Dm 308 P-Zeichon-Kans Era du — GEAUNT TAR, vr HEEL jehbelh rien Pnpilat, OEL Mainboard XT Version, 8 Slots ep 
ee #5 LEEAPLATINEN a APPLE BO. TachnmKtrte = MG FRA Prise a Atirage f Ka MH sid De nn ln Person Dia mi — RAM Card lur LER Be 6B,— 
E i ‘ i i f ön,b I fh A Jimi T micha in TAT yoeruiuder Di Alle Leerplalinen werden mit Bestuckungsplan gelieter 

N SIEBEN es u Lisa Schalibitder, soweit verlugbar, Lieferung gegen Aufpreis 
Legrpialinen mil der Kennzeichnung "DM 39,— Computer-Arlıkel Nachnahmeversand unfrei. Zwischenverkauf vorbehalten IBM - a El 
Leerplalinen mit der Konnzeichnung "DM 2450 Angebote freibleibend unter Anerkennung unserer Lieferbedingungen. Technische Änderungen vorbehallen "Apple ıst eingetragenes Rechner Leerge Te a Ar DM 398. 
Leerplatinen mit der Kennzeichnung +DM 33,— Warenzeichen der Fa. Apple-Compuler Inc... Kalifornien, Ware mit Ruckgaberecht, besonders gekennzeichnel. muß freı zuruckgeschickl Proli-Taslalur, m: Kabel ım Gehause, u 


Experimentier Platine, für Apple Slol EX300 DM 29,90 werden, "IBM ist eingetragenes Warenzeichen der Firma IBM GmbH Fim ee a aM iz 
Leerplatine Motherboard, 48K, mıt Best-Aufdruck DM 66,— Netzteil. mil Venlilalor. 100 Wall DM 298 _— 


Leerplatine Motherboard, 64K, mit 6502 + 280 DM 99,— COM PUTER CENTER CONEX ERICH-WILLI MEYER dto wie vor jedoch 135 Walt DM 338.-— 


5650 SOLINGEN 11 » Postfach 110206-9 P 6343 FROHNHAUSEN - Postfach 7011 Pıiskelten Laufwerk, 2x40 Track DS/360 KB Dem 


i ‚ Kplım. Xebec Controller DM 2990,— 
Telefon (027 71) 350 71 Hardaisk 10MByte 
We Sonderliste gegen Rückporto_Kalalog gegen 3 DM in Briefmarken 
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Kurzanleitung 


l. (Kopie der} ProD0S-Systemdiskette (beliebige Version} 
mit PR#6 booten und dann CONVERT mit 
-CONVERT starten. 
Nun MKBOOT.BAS + MKBOOT.OBJ + DOBOOT.OBJ 
von Peeker-Sammeldisk (DOS-3.3-Format) 
auf (Kopie der) ProDOS-Systemdiskette übertragen 
‚ Jetzt von ProDO5S-Systemdiskette FILER mit 
-FILER starten und Leerdiskette formatieren. 
Nun erneut ProDOS-Diskette booten und dann MKBOOT.BAS mit 
-MKBOOT,BAS starten, das seinerseits MKBOOT.OBJ 
und DOBOOT,OBJ automatisch einlädt. 
Wenn Menü erscheint, formatierte Leerdiskette einlegen, 
Slot-Nummer 6 eingeben und Return drücken. Damit wird die 
formatierte Leerdiskette zu einer Fastboot-Diskette 
mit der Systemdatei "PBASIC" (PRODOS + BASIC.SYSTEM). | 
5, Nun zu Testzwecken PBASIC-Diskette mit PR#$ starten. | 


MKBOOT.BAS 


1®88 HIMEM: 8192: REM $2008 
11® GSYS = 12288: REM $3008 
128 MODBßß = 12291: REM $3993 
136 TEXT : HOME 
148 HTAB 8: PRINT "ProDOS Fastboot-Erstellung" 
156 FOR X = 1 TO 46: PRINT "=":: NEXT 
16®8 PRINT CHR$ (A)"PREFIX /" 
176 IF PEEK (GSYS) + PEEK (GSYS + 1) = 82 THEN 2B® 
18® PRINT CHR$ (4)"BLOAD MKBOOT.OBJ": REM A$3D0% 
198 PRINT CHR$ (4)"BLOAD DOBOOT.OBJ,A$34B0": REM (!) | 
2@0 VTAB 5: HTAB 7:SL = 6: REM Default 
21% PRINT "Slotnummer des Ziel-Drives: ";SL 
228 VTAB 5: HTAB 35: GET X$ 
238 IF X$ = CHR$ (13) THEN 26% 
248 PRINT X$: IF X$ < "1" OR X$ > "7" THEN 229 
258 SL = VAL (X$) 
268 VTAB 8: HTAB 5 
278 PRINT "Zieldiskette in Drive 1 einlegen." 
280 PRINT : PRINT : HTAB 6 
298 PRINT "<RETURN>=Start <ESC>=Ende"" 
386 VTAB 11: HTAB 22: GET %$ 
316 IF X$ = CHR$ (27) THEN 459 
328 IF X$ < > CHR$ (13) THEN 389 
338 POKE 34,13: HOME : POKE 34,9 
340 PRINT CHR$ (4)"PREFIX,D1,S"SL: 
REM Setzt "Last Unit" in SGP 
358 PRINT CHR$ (4)"PREFIX /" 
366 CALL GSYS: REM Kopiert aus allen Banks nach $349$,. 
378 PRINT "Das System wird geschrieben.,..": PRINT 
386 PRINT CHR$ (4)"BSAVE PBASIC, A$340$0, E$BFFF" 
39368 PRINT "Der Urlader wird modifiziert...'": PRINT 
aß6 UNIT = 16 = SL: POKE 766, UNIT: 
REM Für BLOCKREAD/WRITE 
4)Ö CALL MODBßß: REM Read Block B9, Mod & Rewrite 
428 IF PEEK (767) = ® THEN PRINT "Ok.": GOTO 269 
430 PRINT CHR$ (7)"I1/O ERROR!": GOTO 45% 
449 REM Programmende 
458 CLEAR : HIMEM: 38490: END 
468 REM Arne Schäpers 5/85 


MKBOOT.OBJ 
BSAVE MKBOOT.OBJ, A$3009, L$BACD 


* MKBOOT. OBJ 

* Fastloader-Erstellung 

* 

SPTR EQU $96 

TPTR EQU 882 ;Ziel-Pointer 

* 

MOVER EQU $189 ;Kopier-Routine 
BUFFER EQU $9PB8® :Puffer für MODBdd 
* 


ORG $3P08 


JMP MOVESYS ;‚dezimal 12288 
JMP MODBß® ;dezimal 12291 
2 
MOVESYS JSR COPYMV ;kopiert MOVER nach $18® 
LDA #5BF :zuerst BASIC.SYSTEM und 
STA SPTR+I ;beide Global Pages 
LDA #$8F ‚nach $6Aß9..8srrFF 
STA TPTR+L 
LDX #826 
JSR MOVER 
LDA #$FF ;darunter kommt das MLI 
SEA ASPTRtl 


186 
181 
182 
163 
164 
195 
106 
187 
188 
189 
118 
0 


ZVSYSIO 


* 
COPYMYV 
CPMLl 


MVLOC 


MVl 


MODBBP 


POMUD 


IOERR 
* 


PBLOCK 
RWUNIT 


* 
MODOFF 


NEWOP 


LDX 
BIT 
JSR 
LDA 
STA 
LDX 
BTE 
JSR 
BIT 
LDA 
STA 
LDX 
INC 
JSR 
DEC 
LDA 
STA 
LDX 
LDY 
JSR 


LDX 
LDA 
STA 
DEX 
BPL 
RTS 


LDY 
LDA 
STA 
DEY 
BNE 
STY 
STY 
RTS 


STA 
STA 
LDA 
STA 
INY 
BNE 
DEC 
DEC 
DEX 
BNE 
STA 
STA 
RTS 


LDA 
STA 


JSR 
DFB 
DA 

BNE 


LDX 
LDY 
LDA 
STA 
INX 
CPX 
BCC 


JSR 
DFB 
DA 

STA 
RTS 


DFB 
DS 


DA 


DFB 
DFB 
DFB 
DFB 
DFB 
DFB 


LDA 
BIT 


#539 ;$3098 Bytes 
$Cö8B ;READ von LC Bank 1 
MOVER ‚nach $3Aß6... 
+$D3 ;REBOOT von $D1ß8..DarFF 
SPTR+Ll 
#593 ;$300 Bytes 
$0083 ;READ von LG Bank 2 
MOVER ‚nach $38®9.. 
$C982 ;ROMON 
#903 
SPTR+1 ;RAM-Disk von $200..$3FF AUX 
+$02 :$5200 Bytes 
MOVER+L ;READ von AUX 
MOVER 
MOVER+L ‚zurück auf READ von MAIN 
#603 ; Page-3-Vektoren 
SPTR+1 
#501 ;nur eine Speicherseite 
a) ;von $3E9..3FF 
MOVER ;nach $34Eß..34FF 
#3 ‚die Redirestion-Vektoren 
+9 :in der Global Page des 
$8E38,X ;BASIC.SYSTEM werden 
‚auf Null gesetzt 
ZVSYSIO 
‚zum BASIC-Programm 
#$1B ;kopiert MOVER nach $1ß® 
MVLOC-1,Y 
MOVER-1l,Y 
CPMLl 
SPTR ;SPTR= $xxdß 
TPTR ; TPTR= $xxßß 
5chB2 ; RDMAIN 
50994 :WRMAIN 
ISETR),Y 
(TPTR].Y 
Mvi 
SPTR+1 
TPTR+1 
MVi1 
$cHd2 ‚RDMAIN 
$scHd4A ;WRMAIN 
$2FE ;von BASIC: Unitnummer 
RWUNIT ;=> Pblock für Read/Write 
$BFBB 
5839 ;READ BLOCK 
PBLOCK 
IOERR 
+08 
MODOÖFF, X :Offset zur ersten Patch-Adresse 
NEWOP,X ‚neues Byte 


BUFFER+$BE,Y 


#LASTOP-NEWOP ;Tabellenende? 


DOMOD 

$BFBd 

S8l :WRITE BLOCK 

FBLOCK 

S2FF ;Flag für BASIC 

53 ;3 Parameter 

1 ;Unitnummer für READ/WRITE 
BUFFER ;Ziel/Quellpuffer 
9008 ;Blocknummer: $ßB 96 
9,1,2,3,4,5 

$c9-$BE 

$DB-$BE 

$FE-$BE 


845 ,546,$47 ;=> $993: neuer Filename 
548,549, 54 


($AA),Y ;für "AND #$F$ 
$D4 ;wird später zu "BEQ $896" 
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112 
Ira 
114 
115 
115 
17 
118 
119 


128 LASTOP 


205 Bytes 


DOBOOT.OBJ 


BSAVE DOBOOT.OBJ, A$6499, L$PODE 


& DOÜBOOT,.OBJ 
* Prodos-Fastloader 


Oo PRGDnDg 


* 
SPTR 
TPTR 
* 
MOVER 
* 


* 


SETIOV 


IOVECS 


* 
FAKECR 


DDRTS 
* 


GETBAS 
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EQU 
EQU 


EQU 
ORG 


JSR 
LDA 
STA 
LDX 
BIT 
BIT 
LDA 
JSR 
LDX 
BIT 
BIT 
LDA 
JSR 
LDA 
STA 
BIE 
LDX 
ING 
LDA 
JSR 
DEC 
LDX 
LDY 
LDA 
JSR 


LDX 
LDA 
STA 
DEX 
BPL 
JMP 
DA 

DA 


ds 
$62 


564 
'PBASEC! 


* 


2010 
302 


$199 
56499 


COPYMV 
+$99 
SPTR+1 
+$39 
ScöBB 
SCö8B 
+$FF 
MOVER 
#603 
$c083 
5C083 
+$D3 
MOVER 
+$EE 
$DRH 
$cH82 
#502 
MOVER+1 
+93 
MOVER 
MOVER+1 
#601 
+$Eß 
+93 
MOVER 


+03 
IOVECS, 
$36,X 


SETIOV 
$EDG® 

GETBAS 
FAKECR 


+$1B 
538 
+$ FD 
$39 
+98 
&#$8D 


+$DD 
DDRTS 
u) 
936 
#+$FD 
$37 


+$96 
$78 
$74 
#$A5 
$F2 


$FB2F 
$FC58 


#507 


‚späterer Exit: STARTUP gefunden 


‚wird dann zu RTS 

:Filetype: BIN, nicht SYS (Sek) 
‚Startadresse für Indexblock 
»inicht SIE) 

‚startadresse für Programm 

; (nicht $2909) 

‚anstelle von 'PRODOS’ 


; Tabellenende 


;‚Quell-Pceinter 
‚Ziel-Pointer 


;Kopier-Routine 
;wird hierher vom Boot geladen 


:kopiert MOVER nach $1%9 
;oberste Quell-Seite ist $99dd 


:$38 Speicherseiten 


;:WRITE ENABLE Bank 1 LC 
‚oberste Ziel-Seite: $FFß® 
;kopiert das MLI in Bank 1 


;WRITE ENABLE Bank 2 LC 
;kopiert REBOOT in Bank 2 


:BANKID für Bank 2 

; ROMON 

:RAM-Disk: 2 Seiten, obere $3## 
‚®STA WRMAIN!" => "STA WRAUX!" 


;kopiert RAM-Disk nach AUX 
‚zurück auf WRMAIN 
‚Page-3-Vektoren 

‚von $3EB..$3FF 


;:COUT zeigt danach auf GETBAS, 
:KEYIN auf "FAKECR"! 


;Kaltstart Applesoft 


:KEYIN zeigt hierher! 
;$38/39 auf Monitor 


;"8 Zeichen empfangen" 
"jetzt <ER=" 


;Applesoft Prompt? 

inech nicht (ist <CK>] 
;Applesoft versucht nach dem 
‚Kaltstart, ein Prompt zu druk- 
;ken und wird hier abgefangen 
;:COUT jetzt auf FDFÖ (Monitor) 


;‚HIMEM für Applesoft: 
;$9600 (dezimal 38409) 
‚Trace-Flag 


;TEXT (40*24) 
;HOME 
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SETNAME LDA FNAME,X 
STA 3200,X 
AND #8$7F 
STA $902,X 
DEX 
BPL SETNAME 
LDA + _H 
STA $208 


;:"STARTUP" nach $281 


‚und für die File-Suche im Boot 


;=> "-STARTUP" 


LDA #$8cC 
STA $4B 
LDA +$D9 
STA $8BC 
LDA #+$F9 
STA $8C0 
LDA +$69 
STA 5803 
STA $8FF 
JSR $892 
BCC GOTSTUP 
JSR FAKECR 

GOTSTUP JMP $BEBß 

= 

* 

COPYMYV 

MVc1 


;‚das Volume-Directory wurde 
;vom Urlader ab $CßQ geladen, 
;BPL im Vergleich wird zu 
;"’BNE! —- kein Vergleich SType! 
;BIT $D4 

;=> BEQ $896: File gelöscht und 
;"RTS" am Ende der Suchroutine 
;RTS für "STARTUP gefunden" 
;RTS für "nicht gefunden" 
‚sucht VolDIR nach STARTUP ab 
;"STARTUP'" gefunden 
;KEYIN-Vektoren auf Monitor 
;‚Kaltstart BASIC.SYSTEM 


+FNAME-MVLOC 
MVLOC-1,Y ;kopiert MOVER nach $1ß@ 
MOVER-L,Y 


MVCl 
SPTR 
TPTR 


= 89 
‚= 09 


5ChB4A 
TPTR+1 
(SPTR),Y 
(TPTR),Y 


‚WRITE nach MAIN 
‚Zieladresse (high) 


MVl 
SPIER+I 
TPTR+1 


:Quelle — $1Pß% 
‚Ziel - $19% 
;‚Seitenzähler 
MVı 


scH84A :WRITE nach MAIN 


d7 ‚Namenslänge 
"STARLUF!" 





a Euer 
EEE un gan an 


fur alle Slots verwendbar 
795.-DM 


x 

+ 

% incl.Software RAMDISK (2%496 Sekt.) DOS 3.3 
* incl1.Software RAMDISK Pascal,Prodos,CP/M 

* erweiterbar auf 5SLZK 


SIZEK RAM-KARTE incı. 4 Disketten 
iM RAM-KARTE incı. 4 Disketten 


NER ARRTEEERERE 










ee 


Kompatibel zur 16K Language Card 

Datensicherung nach Abschalten 

FSEUDO-ROM tz.B. Rom-Edit etc.) 115 D M 

un 
8 

incl, Software DO5S 3.3 Utilities 
128K AKKU-RAM-KARTE incı. 4 Disketten 795.-7DM 
Alle Preise incl. 19%wSti Info Gratis; Erhältlich über den Fachhandel oder 


teıchter Einbau 
für alle Slots verwendbar 

Dırektversand per Nachnahme zuzüglich Porto und Verpackung bei 
Ing. Büro M.Fricke Neue Str.135 ı1a@9aed Berlin 37 Tel:e3d4/gRd1l 56 52 
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Verkauf Software 


Kr WARGAM ES Kr 


Die Besten von SSI für APPLE C 
64 ATARI. Info gegen 80 Pfg. RP 
Computer-Service Th. Müller 
Postfach 2526 7600 Offenburg 


Vereins-Manager, Bibliotheks- 
Chef u. a. Profi-Software von 
E. Heinz Waldgürtel 7, 5060 Berg. 
Gld. 1 


CAD-Programm ROBO 500 + 
PLOTTER-SOFTWARE 500/1000 
kompl. m. HARDWARE. Test s. 
APPLE’S 7/8 NP DM 3300 VHB. 
DM 1900 Tel. 07 11/52 3154 


PASCAL-Textdump 1. All 79,— 
LISP-Interpreter f. Mac 249,- 
Thomas Maier, Mühlweg 24, 6360 
Friedberg 1, 06031/91650 


ASTRO-Programme für APP- 
LE: RADIX Solar/Composite/Part- 
nervergleich mit Plotter-Routinen 
für: HP, EPSON Hi-80, WATANA- 
BE, u. andere 

Liste anfordern von ROJASOFT 
Postfach 4461 CH-8022 Zürich 


MACINTOSH-SOFTWARE. 
US-Import Preisliste + Gratisinfo 
SC-INFO-1, PF 2013, 5100 Aachen 








Schreibmaschinenübungs- 
programm. Verbessern der Fin- 
gerfertigkeit! Durch Zeit- u. Fehler- 
kontrolle für Ze m. 80Z-Karte; 50 
DM VS, NN Patz, 6082 Walldorf/2, 
Nordendstr. 50, Tel. 06105/ 
74561 ab 19 Uhr 


ERERFEHFHRKERRTHTF THEIR E 


LAND. 
SPITZENPROGRAMME 
FÜR APPLE Il 
AB 190 DM INFOMAPPE 
3.50 DM 
A. Wachendorf, 


2814 Engeln 30 
KEITH 


KFEIKKKKEKKEIHERK 
KERKKKKEHERKREHK 


| 





Ankauf Software 


Suche MERLIN-Assembler 
(DOS 3.3) nachmittags, Tel. 
0 71 59/36 02 


Verkauf Hardware 


Fernschreiberinterface am 
Gameport m. Programm DM 79,- 
P. Benner, Hubertusstr. 131, 4150 
Krefeld 


ERPHI-SUBSYSTEM 
2xX640KB 1900,00 ERPHI-Con- 
troller 280,00 DM Phillips 2x80 
Track 440,00 DM 35/40 TRACK 
LAUFWERK 430,00 DM M. Killer- 
mann 09 11/3967 72 + 3330 31 


PEE 





xAPPLE 11+1/0-Probleme?+ 
& zusätzliche Slots, per Software 
schaltbar, ohne komplexe Steuer- 
softw. 2Platinen, 1a Ind. qualität 
unbest. DM 180,- Info: E. Tausend- 
Pfund Gonsenheimer Spieß 18, 
65 Mainz 


Distar-Laufwerk incl. Kabel 
439 DM Contir. 97 DM; Touch Tabl. 
+ SW 198 DM APPLE Ile Komat. 
+ 80 Zei. + 128K 1398 DM. Ro- 
bett Hartmann *0681/66393* 
EDV + Zubehör Mainzer Str. 102 
6600 Saarbrücken 3 


Z80A-Appli-Card (PCPI, AMHz, 
64KB, CPIM 2.2), 10 Diskseiten für 
600 DM, Tel. 0531/84 4649 


APPLE-IJI-Kompatibler, 48K, 
16K-Karte, 80Z/Z, Tastatur/ 1er 
Block Gehäuse, Monitor, Control- 
ler VB 1100,- Tel. 07 11/425890 


apple Iic mit CPM/2. LW/ 
Mouse/2M. alt/Software/Literatur/ 
DM 4200.- Tel. 0931/86372 


IBS Z-80B Karte 590 DM, 
68000 Ka. 799 DM, 256 KRAM 
599 DM 05 21/87 04 24 


APPLE Ile 2 Floppys Monitor 
LITERA Div. Karten Software gün- 
stig. 041 06/7 1970 


Erscheinungstermin für 


Ausgabe 10/85 
ist am 23. 9. 1985 
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Börse 


Verschiedenes 


APPLE REPARATUREN 
(auch compatible M-boards, z.B. 
Atlas, Arca, GES, Datastar, 
Dipa, Lasar, Mewa, 

PC-48 + 64, Plato, Radix, o. 
ae.) sowie Zusatzkarten und 
Disk-Drives führt unser Speziali- 
stenteam mit mehr als 5-jähriger 
Kunden- und Reparatur-Dienst-Er- 
fahrung, garantiert zuverlässig und 
besonders kostengünstig aus. 
Bitte genaue Fehlerangabe sowie 
Tel. Nr. für evtl. Rückfragen nicht 
vergessen. 

Auf Wunsch Kostenvoranschlag. 
aaa-electronic gmbh 
Habsburgerstr. 134, 7800 Freiburg, 
Tel. 0761/276864, Tx. 772642 aaad 


Suche Apple lic Reference 
Manual Manfred Rost Tel. 0211/ 
335842 


012345678912012345678901234 
256-K-Karte für Apple als RAM- 
Floppy günstiger wie Laufwerk. 
Betriebsbereit mit Software nur 
349,— DM FUCOM GmbH, 
Postfach 483, 4600 Dortmund 1. 


Suche f. Apple Ilc DbaseCom- 
piler, ROBO 1500, C Helper u. 
Microcap, Software z. Tausch 
vorh. Tel. 0228/37 44 74 
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== RUNDIL 


Büroelektronik 





Keithstr. 26 - 1 Berlin 30 : ®@ 0 30-26 11126 


-= BUNDW 


==’ Büroelektronik GmbH 
Bachstr. 104 - 2 HH 76 : ®& 0 40-220 1155 


Für weitere Informationen zu einem der in dieser Ausgabe vorgestellten 
Produkte stehen Ihnen die Produktkarten zur Verfügung 


Bitte verwenden Sie für Kleinanzeigen die vorgedruckten Antwortkarten in 
diesem Heft. 


26 





Peeker 9/85 


Für Ihre Unterlagen 
Abonnement bestellt 





Ja, ich möchte peeker abonnieren. 


Liefern Sie mir peeker ab Ausgabe ................. (1985 erscheinen 11 Ausgaben — 
1 Doppelnummer) zum Jahresbezugspreis von DM 72,— (Inland) incl. MwSt. Die 
Lieferung erfolgt frei Haus. Porto, Verpackung und Zustellgebühren übernimmt 
der Verlag. Der Jahresbezugspreis für das Ausland beträgt DM 72,- incl. MwSt., 
zzgl. DM 16,80 Versandspesen. 





am: 


Vertrauensgarantie: 

Ich habe davon Kenntnis genommen, 
daß ich die Bestellung schriftlich 
durch Mitteilung an den Dr. Alfred 
Hüthig Verlag, Postfach 102869, 
6900 Heidelberg 1 innerhalb von 7 
Tagen widerrufen kann. Zur Frist- 
wahrung genügt die rechtzeitige Ab- 
sendung des Widerrufs (Datum des 


Ich wünsche jährliche Berechnung durch: 
[_] Verlagsrechnung [_] Abbuchung von meinem Bank- 
bzw. Postscheckkonto 


Poststempels). 

peeker 

Leserservice Bank / PschA 

Postfach 102869 | 2 

6900 Heidelberg 1 Se Kto, 
Datum Unterschrift 


a: Abo-Karfte 









Für Ihre Unterlagen 
Folgende Bücher bestellt: 


299999 PEEKER 94 


Bitte senden Sie mir gegen Rechnung folgende Bücher: 


1 Autor, Titel | aDM | gesamt DM 


am: 
bei! 





peeker 
Versandbuchhandlung 


Postfach 102869 
6900 Heidelberg 1 


Datum Unterschrift 


399999 PEEKER 94 


ar Buch-Shop 





Für Ihre Unterlagen 


Folgende Disketten 
und Programme bestellt: 





Bitte senden Sie mir 
gegen Rechnung folgende Apple-Programme: 


Softwareabteilung Superquick, Programm, DM 48,- 


Postfach 102869 
6900 Heidelberg 1 


Datum Unterschrift 


oO 
- 7 U] Peeker-Sammeldiskette, einzeln DO] Apple DOS 3.3, Begleitdiskeite, DM 28,- 
Disk# _____, Disk# U] Apple ProDOS, Band 1, Begleitdiskette, 
SL Disk# _____, Disk# DM 28,- 
I Preis je Disk DM 28,- (einzeln) [| 0 Band 2, Begleitdiskette, 
U [U] Peeker Sammeldiskette, D Apple Assembler, Begleitdiskette, DM 28,- 
oO im Fortsetzungsbezug D ProDOS-Editor 1.0, Programm, DM 98,— 
ab Dsk# _ DI MMU 2.0, Programm, DM 98,- 
am: (Mindestbezug 6 Disketten) OD INPUT 2.0, Programm, DM 98,— 
e Preis je Disk DM 20,- OD Softbreaker 1.0, Programm, DM 48,- 
bei: Cl OD CP/M ja 7 CP/M nein [I DB-Meister, Programm, DM 290,- 
peeker a OD Pascalja DD Pascal nein = Superplot, Programm, DM 48,— 
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Abteilung 
Straße 


PLZ/Ort 

Vertrauensgarantie: 

Ich habe davon Kenntnis genommen, daß ich die Bestellung 
schriftlich durch Mitteilung an den Dr, Alfred Hüthig Verlag, 
Postfach 102869, 6900 Heidelberg 1 innerhalb von 

7 Tagen widerrufen kann, Zur Fristwahrung genügt die 
rechtzeitige Absendung des Widerrufs (Datum des 
Poststempels). 


Datum 


Unterschrift 

Verlagshinweis: 

Das Abonnement verlängert sich zu den jeweils gültigen 
Bedingungen um ein Jahr, wenn es nicht 2 Monate vor 
Jahresende schriftlich gekündigt wird, 


O7 bitte vollständig ausfüllen 


Vorname, Name 


Firma 


Straße 





PLZ/Ort 


Telefon mit Vorwahl 


Karte bitte vollständig ausfüllen 


Vorname, Name 


Firma 


Strafe 


PLZ/Ort 


Telefon mit Vorwahl 





POSTKARTE 


peeker 
Leserservice 


Postfach 10 2869 
6900 Heidelberg 1 


POSTKARTE 


peeker 
Versandbuchhandlung 


Postfach 10 28 69 


6900 Heidelberg 1 


POSTKARTE 


peeker 
Softwareabteilung 


Postfach 10 2869 


6900 Heidelberg 1 


INPUT 2.0 


Ein Bildschirm- 
Maskengenerator 

für DOS 3.3 und ProDOS 

von. Stiehl 

1984, Diskette und Manual, DM 98,— 

ISBN 3-7785-1021-5 

„Input 2.0" liegt wahlweise in der Bank 1 
oder Bank 2 der Language Card und wird 
durch einen kurzen Driver in den unteren 
48K aufgerufen. 

Für jedes Feld der Bildschirmmaske lassen 
sich u, a. definieren: Feldlänge (bis zu 255 
Zeichen) — Vtab — Htab — Datentyp (insge- 
samt 8 Typen) — Scrollflag (starre oder dyna- 
mische Maske) — Ctriflag - Füllflag — Lösch- 
flag — Bildschirmflag (40- oder 80-Z-Darstel- 
lung). Innerhalb eines Eingabefeldes besteht 
jeder denkbare Redigierkomfort (Insert, De- 
lete, Rubout, Restore usw,), 
Gerätevoraussetzung: Apple Ile oder lic; fer- 
ner Apple li+ im 40-Zeichenmodus 


MMU 2.0 


Memory Managements 
Utilities 

für die Apple lle 64K-Karte 

DOS 3.3 (und ProDOS) 


von U. Stiehl 


1984, Diskette und Manual, DM 98,- 
ISBN 3-7787-1023-1 


Insgesamt enthält die neue „MMU 2.0°- 
Diskette über 25 Programme, die neue 
Einsatzmöglichkeiten für die Extended 80 
Column Card (erweiterle 80-Z-Karle = 
6AK-Karte für den Apple lie) erschließen. 
Ein Teil der Programme laufen auch auf 
dem Apple Il Plus, doch ist „MMU 2.0" 
primär für 64K-Karte-Besitzer gedacht. 


Gerätevoraussetzung: Apple |le mit 64K- 
Karte oder IIc 


Softbreaker 1.0 


Eine softwaremäßige Interrupt-Utility 
für die Apple lie 64K-Karte 


von U. Stiehl 


1984, Diskette und Manual, DM 48,- 
ISBN 3-7785-1022-3 


Softbreaker ist ein Assemblerprogramm, mit 
dessen Hilfe Programme, die sich von der 
64K-Karte (= Extended 80 Column Card für 
den Apple lie) starten lassen, unterbrochen, 
gespeichert, geladen und exakt an der Stelle 
der Unterbrechung fortgeführt werden kön- 
nen. Dadurch ist es auch möglich, Siche- 
rungskopien von sogenannten kopierge- 
schützten Programmen herzustellen. 

Mit Softbreaker unterbrochene Programme 
werden komplett, d. h, die ganzen 64K eın- 
schließlich Language Card, in nur ca. 11 Se- 
kunden auf einer formatierien Diskette gesi- 
chert, 

Gerätevoraussetzung: Apple Ile mit 64K- 
Karte 


Hüthig Software Service, 
Postfach 10 28 69, D-6900 Heidelberg 





' UNIVERSAL 
= 
KEYBOARDS 
V\ICROMINT 


Modell ANS5SFTE... DM 448,- ohne MwSt, (DM 510,72 incl. MwSt.) 
LLT RE F F E R® Die KEYBOARDS SPEZIELL angepaßt für den APPLE Ile 
Händleranfragen erwünscht 
LASAR 16 


IBM 256K, 2x TEACBFDD, Contr. 
color Graphik, Multifunktionscard, 


Netze 5A 46785 
LASAR ZE 


— Apple comp. 64K + 
12 KROM + 


6502 + Z80 A | 

80 Z sw Tastatur 1 290; 

Außerdem volles Rückgaberecht innerhalb 
14 Tagen ohne Begründung. 





























Appie | IBM 





r FLEXIBEL Jede Taste frei im EPROM programmierbar in 
@ Mehrzweckklappgehäuse It. Abb. 147,— | 147,— bis zu 8 Ebenen im mitgelieferten EPROM 


@ Schaltnetzteile Apple5 A/IBM 15A 115,— | 238,— PROFESSIONELL Für Anwender mit gehobenen Ansprüchen 
® Profitastatur dtsch. LASAR 2000 291,— 291,— ERGONOMISCH Nach DIN ULTRAFLACH gestaltetes stabiles 


Gehäuse 
@ Interface ab 75,- | 148,— KOMPLETT Tastatur, Gehäuse und Kabel fertig montiert 


@® Monitor 22 Mhz incl. Fuß, bernstein 289,— | 289,— und getestet. Durch Spezial-Kabel und Spezial- 
EPROM sofort einsteckfertig. 

KOMPAKT + FLACH Durch Einsatz von „SIEMENS“ Flachtasten- 
modulen 


Kaufgarantie/Tiefstpreisgarantie/1A Qualität: 100 % kompatibel inkl. Systemsoftware 

Made by Micromint: Apple II 495,-, Apple Ile 695,-, IBM 895,- Fertigplatinen. Tragbare 

Gehäuse für 7-Zoll/9-Zoll-Monitore 595,— DM inkl. Tastaturen. Winchester 27 MB auf 
Anfrage 1A First Class Controller bis 140 MB 935,- DM. 


Generalimporteur MICROMINT Computer GmbH Ä 
Hochdahler Straße 151, 4006 Erkrath 2 * Al 
Telex 8589305 mem = 
gesellschaft für 


compuflersleverungen 

0 2104/3 30 24 on 
D-4930 Detmold x Alter Mühlenweg 5 

Telefon 0 52 31/41 76 x Telex 9 35 660 acs d 


Anple und IBM | — INT Die 
kompatible Computer ' ÄAD | Preisliste | U ngamt 


16K, Z80, Diskoontroler je . . » u 85,- 1 A a u. | 

80 Zeichenkarte mit Softswitch ENT De kostenlos! Die TempoHexe ("SpeeDemon”) macht den Apple 
2 Zeichensätze . . 2... 160,- " Katal DM 2 II, II+ und Ile so schnell wie die populären 16bit 

Motherboard 48K ohne Ss ur atalog 3 Rechner. Die TempoHexe beschleunigt alle Pro- 

Firmware . . Er 0 gramme bis zu 31/2 mal - absolut ohne jede Soft- 

Erphi-controler mit Autopatch . . . 300,- ware-Änderung! Einfach einstecken, einschalten 

Siemenslaufwerk F 122 ’ . 515,— Unser Angebot im August Io8 

TEAC FD-55B 2 x 40 Track . ‚ 448,- ba 

TEAG FD-55F 2 x 80 Track. „=. 4/5,- Profimax Ill, APPLE II kompatibel, Veraterenileitse 

Drucker Star SG 10 . . . . 940,- mit Z80 und 6502, IBM- look nur 1248,— und Händleranfragen bei: 

Monochrome Monitore .„ „ . . ab 375,- 

Farbmonitore . u. ab 998,- Profimax Ile. APPLE Ile kompatibel 

Tastaturen für IBM und. Apple u. ab330: = hy ki: ss Zi Be: = 

Versand nur per Nachnahme oder Vorkasse ı 


Weiteres Zubehör für Apple und IBM gegen Chinon- Laufwerk FO51A, mit Kabel He ee BOSCH 


5 & - den ; Schwarzwaldstr. Ba 
frankierten Rückumschlag und Gehäuse, anschlußfertig nur 398,— Kr e 7602 ObEkirch 


Tel.: (07802) 3707 


Preissenkung: 


1 28K Kae a) .375,— STAR sg-10, schönschreibfähig nur 898,- EEE sn 
reissenkung - ns ee |! Iphancns Al : 
Mindestabnahme 20 Stck 4 = =. 3,90 Druckerinterface, grafikfähig nur 118,- 


Katalog gegen DM 1.- 
= Telzrlnızld.de1a 


D.0.S. Computersysteme EISEN TEEENEHITTT) RER 
Am Kühnbach 42, 7170 Schwäbisch Hall 11 A EN Software und Peri- 


UEEFFETRUFSFERERLATTTEREN SEE BT ge N Tell: 
Telefon (07 91) 51736 re it: er) TESTEN Te 


Zusatzkarten und Motherboard ausnahmslos 
deutsche Fertigung mit ausgesuchten Bauteilen. 


Ulf Mohwinkel Electronic 


Berliner Straße 73 Pf: 250 166 
5090 Leverkusen Fettehenne 
Telefon 02 14/937 81 


a EC -5 799 Km 29 EHLERS 


Be RE für alle II-Tyren 


kompatibles EEE erTraum-Preise 439 
| Info gea. DM 1,40 in Briefmarken |] PC=48 Konbi-Freis PC-64 Konbi-Preis Ems [wen |, | 


SPRINGMANN COMPUTER GmbH nur SET nur 

Stöckener Str, 1993 Piz ö> | Mischling | de ey) 

346 Hannover 21 - Eee sis 19, Ä troller AI ren 
Tel: 0511-791111 Tix: 921456 conps d | DM € +Eontroiler/nM F.IBM-PC (368K) _ DM 469 | 
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von Reiner Hammerschmidt 


Angeregt durch die Grafik-Möglichkeiten 
einiger größerer Computer entstand der 
Wunsch, höhere Grafik-Auflösungen mit 
dem Apple zu realisieren. Dieser hat zwar 
die Möglichkeit, hochauflösende Grafiken 
darzustellen, dies aber nur mit maximal 
280 & 192 Punkten bzw. 560 & 192 Punk- 
ten beim lic oder Ile mit entsprechender 
Karte. Ein Bild mit noch höherer Auflösung 
ist mit dem nachfolgenden Programm 
SUPER.HGR und einem Matrixdrucker 
mit Einzelnadelansteuerung möglich. 


Als Hardware reichen ein Apple Il und ein 
grafikfähiger Matrixdrucker mit passendem 
Interface aus. Eine noch weitaus größere 
Auflösungen als hier (640 x 320) ist erziel- 
bar, wenn man mit dem Programm einen 
sogenannten DOS-Mover verwendet. 

Zur einfacheren Ausgabe liegt die Grafik 
im Speicher zeilenweise druckergerecht 
vor, Die Auflösung wird in Zeile 150 durch 
die Variablen LE (horizontal) und ZE (verü- 
kale Punktzahl = ZE x 8) festgelegt. Die 
hier angegebenen Werte gelten für einen 
NEC 8023. Die Variablen LE und LE$ müs- 
sen bei anderen Druckern eventuell ange- 
paßt werden (z.B. bei weniger als 640 
Punkten pro Zelle). LE$ enthält die Initiali- 
sierungsfolge für den Drucker, um eine 
Grafikzeile byteweise ausgeben zu kön- 
nen. Der hier verwendete String besagt, 
daß der Drucker auf Grafik umschalten 
und 640 Bytes pro Zeile als Grafik aus- 
drucken soll. 


30 








Um bei Druckeranpassungen zu bleiben: 
Der NEC druckt im Grafikmodus Bit O 
oben. Da es aber auch Drucker gibt, die Bit 
O unten drucken, muß hierfür die Zuwei- 
sung an die Variable Z2% in Zeile 480 
folgendermaßen lauten: 

Z22%=2# (7- (ZZ-Z1%)*8) 

Ebenso muß die Einstellung des Zeilenab- 
standes in Zeile 530 (16/144 Inch) sowie 
die Grafikinitialisierung in Zeile 550 bei 
Druckern außer NEC 8023 bzw. ITOH 
8510 angepaßt werden. 


Zur Funktion des Programms 


Die Kernroutine basiert auf den Zeilen 
480-510. Um auch bestehende Grafikpro- 
gramme weiterverwenden zu können, 
brauchen nur X- und Y-Koordinaten des 
zu setzenden Punktes bestimmt und über- 
geben werden. Diese Werte müssen in- 
nerhalb der vorgegebenen Grenzen |lie- 
gen, da keine Abfrage eingebaut ist, wel- 
che Fehler abfangen könnte. Der Koordi- 
natenursprung liegt, wie gewohnt, links 
oben. Die ermittelten X-Y-Werte werden 
mittels der Variablen | (Abszisse) und Y% 
(Ordinate) an das Unterprogramm 480ff. 
übergeben, welches die absolute Adresse 
(N1% und N2%), sowie die Pixelwertigkeit 
des Punktes im Byte (Z2%) bestimmt. Das 
hierdurch eindeutig bestimmte Bit wird 
dann durch eine Maschinenroutine in den 
Speicher „hineingeODERt“ (CALL 788). 

Das Programm stellt in der abgedruckten 
Form eine Demonstration dar und soll zu 


Super-HGR für 
NEC- und ITOH- 
Drucker 07 = N N 


h 
TEEN We 


weiteren Experimenten anregen. Nach 
Start mit RUN löscht es den Grafik-Spei- 
cher und fragt nach der gewünschten Gra- 
fik, die durch Modifikation einzelner Para- 
meter im Programm variiert werden kann. 
Nach Eingabe der entsprechenden Ziffer 
entsteht die Grafik, zunächst unsichtbar, 
bis der Ausdruck erfolgt. Weitere Ausdruk- 
ke sind möglich durch Eingabe von GOTO 
530. Die Zeilen 170-450 stellen somit An- 
wendungsbeispiele der Super-HGR dar: 
Zunächst wird der Maschinensprachteil 
gepokt (630ff.; auf Peeker-Sammeldisk 
unter dem Namen SUPER.HGR.ASM), 
und der Grafik-Speicher oberhalb von HI- 
MEM wird gelöscht. Anschließend wird die 
gewünschte Grafik berechnet, wobei noch 
lange nicht alle Möglichkeiten im Pro- 
gramm ausgeschöpft sind (siehe Beispie- 
le). Man denke z.B. an hochauflösende 
Darstellungen von 3D-Funktionen. Ab- 
schließend erfolgt der Ausdruck der er- 
stellten Grafik. 


Da Applesoft-BASIC bei Ausgaben grund- 
sätzlich Bit 7 auf Null setzt, mußte auch 
hierfür ein kleines Maschinenprogramm 
verwendet werden, daß über USR() aufge- 
rufen wird. Dieses erwartet ein Druckerin- 
terface in Slot 1 und muß für andere Inter- 
faces gegebenenfalls angepaßt werden. 


Das Programm wurde bewußt soweit wie 
möglich in Applesoft geschrieben, um 
sehr leicht Änderungen vornehmen zu 
können. 
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SUPER.HGR 


16% REM Super-HGR für APPLE II 


118 REM Bess ec EEE 


Reiner Hammerschmidt 
Oktober/1984 


128 REM * 
138 REM * 


148 REN esse bene 
158 LET PI = 3.1415926:LE = 649: LE$ = "SÄ64ß":ZE = Ad 


168 HM = 8289: HIMEM: HM 

178 GOSUB 639: GOSUB 619 

189 HOME : PRINT "Super HGR" 

198 VTAB 9: PRINT "1 Sinus" 

200 PRINT : PRINT "2 Spirale" 

21ß PRINT : PRINT "3 Stern" 

Be VIAB 22: PRINT "Ihr Wunseh 2 W: 
238 IF A$ < "]" OR A$ > "3" THEN 229 
24B ON VAL (A$) GOTO 2708,358,41B 


250 END 

260 REM —---- Sinus (X&X} -—-—. 
278 FOR I = HM TO HM + LE - 1 

Zei LET B = (2 & Pi) / LE 


298 LET Y% = ( SIN (Bx (I-HNM) « (I-HN) »«B) + }} 


“(Zee 21, j) 2 

306 LET ZZ = YZ / 8: LET Z12 = INT (Z2): 
LET 22% = (ZZ - Z1%) * 8 

316 LET PTZ = PEEK (I + Z1% « LE) 


328 POKE I + 21% & LE, ({PITZ OR 2 1 2%) » 2 1 AA) + PTA 


338 NEXT I: GOTO 538 


34B8 REM --———--------------—- Spirale ————--——- 


350 FOR WW = ® TO 26 =» PI STEP PI / 199 
36% LET G = 159 #» ww / (20 « PI) 

378 LET I=HM + 1.1 x COS (WW) = G + 328 
380 LET YZ = SIN (WW) * G + 16 

390 GOSUB 486: NEXT WW: GOTO 539 


488 REM —----—--—— Stern -—-———-- —— 
418 FOR WW = „BÖßB1 TO 2 * PI STEP PI / 1 


A2Ö FOR G = 1 TO 169 

A3ß LET I= HM + 1.1 x cos (WW) = G + 329 

AA LET YZ = SIN (WW) = G + 169 

A5B GOSUB 486: NEXT G: NEXT WW: GOTO 539 

AGREM ee 2 np 

470 REM I= X-Koordinate „ 

ASS LET 272 3%) 8. [er 212 IN) (22): 
BET Zz2R a rılzz Ze 

498 N1Z = 
N1% * 256 


5ß® POKE 798,N1%: POKE 795,N1%: POKE 789,N2%: POKE 794,N2% 


GET A$: PRINT 4$ 


setze Punkt --—----—- 
YZ= Y-Koordinate 


(I+ 21% « LE) / 256:N2% = (I+ZIZ LE) - 





2 HARdWARE 24 


POKE 792,22%: CALL 788: RETURN 
REM ----Ausdruck-Routine für NEC 8823---—— 
PRINT CHR$ (4)"PR#1": PRINT EHRE (27 nrolt: 


REM Zeilenabstand 16/144 inch 


* FOR J=8 TO 2ZE -1 
* PRINT CHR$ (27);LE$;: REM Vorbereiten Grafik (NEC) 


NEXT : 


FORI=HM+J«# (LE) TOHN+ {J +1) «LE - 1: 
WY = USR ( PEEK (I}) 


PRINT : NEXT 


PRINT CHR$ (4)"PR#®" 


END 


REM --------——--- Bereich löschen -————— 


FOR I = HM TO HM + ZE » LE: POKE 1,8: NEXT : 


RETURN 


REM —- Assembler Unterprogramm poken --— 


FOR I = 768 TO 796: READ A: POKE I,A: NEXT 


POKE 198,76: POKE 11,9: POKE 12,3: REM USR-Vektor 


RETURN 


REM UP Tür 5 Bit Daten 


_—- 678 DATA 32,12,225,165,161,44,145,192,48,251,141l, 


145,192,141,146,192,141,148,192,96 
68# DATA 173,8,32,9,9,141,8,32,96 


SUPER.HGR.ASM 


580: 20 
33: A5 
B305: 2C 
308: 39 
B3BA: 8D 
B30D: 8D 
8319: 8D 
#313: 69 


oo Jon khROGnNH 


#314: AD 
#317: 89 
B319: 8D 
B3lC: 68 


29 Bytes 


Umwandlung in Großbuchstaben 


von H.Grumser 


Die meisten Appie-Besitzer verfügen über 
Groß/Kleinschreibung als serienmäßige 
Ausstattung des Ile und IIc oder als Nach- 
rüstung des alten II Plus mit Kleinschreib- 
umrüstsatz oder 80-Zeichenkarte. Von 
dieser Möglichkeit, die die Lesbarkeit von 
Programmen und Menütexten erheblich 
verbessert, wird auch in allen im Peeker 
veröffentlichten Applesoft-Programmen 
Gebrauch gemacht. 

Um den Besitzern eines „ungetunten” 
Apple Il Plus gerecht zu werden, entstand 
das Programm VERSAL, das alle Klein- 
buchstaben eines im Speicher befindli- 
chen Applesoft-Programms in Großbuch- 
staben umwandelt. Darüber hinaus wird 
das Eszett (ß) in ein einfaches S konver- 
tiert und alle Umlaute (ä, ö, ü, A, Ö, U) in 
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die entsprechenden einfachen Selbstlaute 
(a, 0, u, A, OÖ, U). Diese einfache Umset- 
zung gewährleistet die weitere Funktions- 
fähigkeit des Programms. 

Für die Umwandlung ist folgendermaßen 
vorzugenen: 

RUN VERSAL 

LOAD PPROGRAMM.ALT 

CALL 768 

SAVE PPROGRAMM.NEU 

Das Maschinenprogramm ist relokativ und 
bearbeitet auch verschobene Programme 
(z.B. hinter die HGR geladene Pro- 
gramme). 


Der Quellcode zu dieser Maschinenrouti- 
ne befindet sich auf der Peeker-Sammel- 
disk unter dem Namen T.VERSAL. 


* Zeile 619 nimmt einige Sekunden in Anspruch! 


* Maschinensprachteil aus SUPER.HGR 
* 
ORG $39% 


* 
AYINT EQU 
BYTE EQU 
* 


$ELSC 
32098 


; FAC->INT 
‚Byteadresse 


JSR AYINT 
LDA $A1l 
INTERF BIT $cg91 
BMI INTERF 
STA $c891 
STA $C892 
$c994 


‚Interface 


meslot.! 
‚Typabhängig! 


BYTE 
+89 
BYTE 





VERSAL 


1 REM PROGRAMM ZUR UMWAND- 
LUNG VON KLEIN- IN 


GROSSBUCHSTABEN 
2 FOR I = 768 TO 838: READ A: 
POKE 1,A: NEXT 


3 DATA 165,103,133,250,165,104, 
133,251,160,1,177,250,240,56 

4 DATA 200,200,200,177,250,48, 
251,208,12,56,152,101,250,133 

5 DATA 250, 144,233,230,251,176, 
229,201,126,208,2,169,83,201 

6 DATA 97,144,2,41,223,201,91, 
208,2,169,65,201,92,208,2,169 

7 DATA 79,201,93,208,2,169,85, 
145,250,200,208,203,96 
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Manchmal steht man vor der Aufgabe, die 
Laufzeit eines fertigen Programms zu re- 
duzieren. Ein nicht ganz einfaches Pro- 
blem, denn da der statische Quelltext nicht 
immer genügend Information über das dy- 
namische Verhalten des Codes liefert, 
kommt man durch bloßes Lesen des Li- 
stings nicht weiter. Vielmehr benötigt man 
exakte Angaben darüber, wo das Pro- 
gramm den größten Teil der Zeit verbringt, 
um dann an diesen Stellen die Optimie- 
rungen durchführen zu Können. 


Bei der Ausarbeitung meines Beitrags zu 
dem Primzahlen-Wetibewerb (Peeker, 1/ 
84, Seite 58) entwickelte ich zur Lösung 
dieses Problems eine Utility, welche ich im 
folgenden vorstellen möchte. 


Flag Monitor 





Das Verfahren 


Der Ablauf eines Maschinenprogramms 
hat prinzipiell sequentiellen Charakter, so 
daß man diesem weitestgehend auch mit 
„Papier und Bleistift“ folgen kann. Einzige 
Problempunkte sind bedingte Verzwei- 
gungen (Branch-Befehle wie etwa BCC 
oder BMI), da man im voraus nicht immer 
ganz einfach feststellen kann, in weichem 
Zustand sich bestimmte Flags befinden. 





EEE EHE 






N 
ET EA 
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Man weiß daher auch nicht, wie oft eine 
Schleife tatsächlich durchlaufen wird und 
welchen Anteil sie an der Gesamtzeit 
bildet. 


Es sei folgende Sequenz gegeben: 


START Anweisung 1 


Anweisung n 
ENDE BCC START 


Gehen wir einmal davon aus, daß die 
Schleife nur über das Label START betre- 
ten und auch nur über ENDE verlassen 
werden kann und die Anweisungen I—-n 
(also ohne das BCC) eine Laufzeit von 111 
Zyklen haben. Wenn man nun z.B. wüßte, 
daß das Label ENDE insgesamt 123mal 
mit C= O und 45mal mit C = 1 erreicht 
wird, so könnte man die Verweildauer in 
der Schleife zu 123 x (111 + 3) + 45 x 
(111 + 2) = 19107 Zyklen bestimmen. 
Hierbei wurde berücksichtigt, daß ein 
Branch-Befehl 3 Zyklen bei Verzweigung 
und ansonsten 2 Zyklen benötigt. 

Mit meiner Utility kann man nun überprü- 
fen, wie oft eine bestimmte Anweisung 
passiert wurde und wie die Flag-Verhält- 
nisse dabei aussahen. Dazu muß vor die 
betreffende Anweisung ein JSR-Sprung 
zur Utility gelegt werden. 


FLAG.MONITOR besitzt die drei von au- 
Ben zugänglichen Routinen INITIAL, MO- 
NITOR und DRUCKEN, wobei sich 
Sprungbefehle zum Anfang dieser Routi- 
nen bei $8000, $8003 und $8006 be- 
finden. 


INITIAL führt eine Initialisierung durch und 
muß vom Anwender vor MONITOR einmal 
aufgerufen werden, da ansonsten wichtige 
Speicherplätze zerstört werden können! 


MONITOR ist der Kern der Utility und wird 
von den relevanten Stellen des untersuch- 
ten Programms aktiviert. Im allgemeinen 
sind dies diejenigen Adressen, welche un- 
mittelbar vor Branch-Befehlen liegen. 
Denn z.B. von einem BCC-Befehl will man 
ja gerade wissen, wie oft er mitC = O bzw. 
GC = 1 erreicht wird. MONITOR legt für 
jede dieser aufrufenden Stellen einen 19 
Bytes langen Block an, in dem alle interes- 
santen Daten gespeichert werden. 
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Aus der Tabellei1 kann man entnehmen, 
daß in den ersten beiden Bytes des Blocks 
die Adresse der aufrufenden JSR-Anwei- 
sung abgelegt wird. Im Byte 3 befindet 
sich der Opcode der dem JSR $8003 fol- 


Tabelle 1: Block-Aufbau 


ı JSR-Adresse 
: Überlauf 
: Opcode 


: Gesamtzähler 

: Zähler für PL 
: Zähler für VC 
: Zähler für CC 
: Zahler für NE 





genden Anweisung (also z.B. ein BCC- 
Code). In den Bytes 4 bis 18 werden 5 
verschiedene 3-Byte-Zähler geführt. Die 
Bytes 4 bis 6 registrieren, wie oft MONI- 
TOR von der betreffenden Adresse aus 
aufgerufen wurde. Die übrigen Zähler ge- 
ben an, wie oft davon der jeweilige Status 
vorgelegen hat. Um z.B. zu ermitteln, wie 
oft das Carry-Flag gesetzt war, muß der 
Zähler in 13 bis 15 von dem in 4 bis 6 
subtrahiert werden. Sollie einer dieser 
Zähler einmal überlaufen (größer als 16 
Millionen!), so wird das Byte 2 auf 1 ge- 
setzt; ansonsten bleibt es 0. 

Die Routine DRUCKEN gibt ein formatier- 
tes Listing der durch MONITOR aufgebau- 
ten Blöcke aus. 


INITIAL und MONITOR benötigen keine 
externen Routinen, so daß diese jederzeit 
(also beispielsweise auch trotz zerstörter 
Zero-Page) aufgerufen werden können. 
DRUCKEN hingegen benutzt zur Ausgabe 
von Zeichen die üblichen Routinen aus 
dem ROM. Dies hat den Vorteil, daß man 
die Listings auch in einen File oder zum 
Drucker schicken kann. 


Ein Beispiel 


Vor einer Beschreibung der Implementation 
soll hier ein Anwendungsbeispiel gegeben 
werden: 

Angenommen man benötigt die folgende 
Funktion: Abhängig von dem Parameter W 
(zwischen 2 und 127) soll die kleinste Zahl 
N als Ergebnis geliefert werden, so daß 
256 + N ganzzahlig durch W teilbar ist. 
Einige (W, N)-Paare sind etwa (2, 0), (3, 2), 
(4, 0), (5, 4), denn z.B. 256 + 4 = 260 ist 
ganzzahlig durch 5 teilbar. 


In FLAG.MONITOR.TEST sind drei Reali- 
sierungen der obigen Funktion zusam- 
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mengefaßt. Die erste addiert so lange den 
übergebenen Wert, bis dieser 256 erreicht 
(oder überschreitet). Die zweite multipli- 
ziert den Wert mit 2, bis dieser 128 er- 
reicht, um dann ebenfalls fortgesetzt zu 
addieren. Die dritte Routine multipliziert 
zwar auch mit 2, hört jedoch erst dann auf, 
wenn 256 erreicht wurde. Dann wird der 
Wert subtrahiert, bis 256 gerade eben un- 
terschritten wird. Um das Endergebnis zu 
erhalten, muß dann noch einmal der Wert 
addiert werden. 


Tabelle 2: Ausgabe des Testprogramms 


JSR-Adr : $9308 
Su 
PH 
YG 
Eee 


1974 
519 
948 
948 

1868 


ee 


a u 


z 
2 
I 


: $9311 


249 
114 
240 
2A 
240 


TE 
Pl 


: 0318 


432 
126 
432 
36 
426 


ı Hu U 


JSR-Adr : $8321 
366 
ie 
366 
249 
368 


ans 00 
Kameras 
Ve 


u 


ı 590328 


462 
294 
Ries! 
126 
A6R 


zasu u 
BIBESEcIEe Te 
Ve 


Del 


JSR-Adr : $8342 
Su = 126 
PL 125 
ve 126 
ee d 
NE 126 


a 


kml 





Es ist offensichtlich, daß die zweite Imple- 
mentation der ersten überlegen ist. In 
welcher Relation jedoch IMPL2 und IMPL3 
stehen, kann nicht ohne weiteres angege- 
ben werden. Es ist nämlich so, daß für 
bestimmte Werte die Routine IMPL2 bes- 
ser abschneidet, diese jedoch bei anderen 
Werten unterlegen ist. 
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Um eine Entscheidung ftreffen zu können, 
habe ich dann an den wichtigen Punkten 
meine Utility aufgerufen (am Rand durch 
„---" gekennzeichnet). Im Hauptpro- 
gramm werden dann nach der Initialisie- 
rung die drei Routinen mit allen möglichen 
Parametern aufgerufen. Die durch DRUK- 
KEN erzeugte Zusammenstellung findet 


sich in der Tabelle 2. 


Dieser kann man z.B. entnehmen (erster 
Block), daß MONITOR von $0308 aus ins- 
gesamt 1074mal aufgerufen wurde (Su als 
Abkürzung für Summe). Davon galt 
948mal CC (C = 0) und 126mal CS (C = 
1). Man beachte, daß die Tabelle nach den 
JSR-Adressen sortiert wurde und die rele- 
vanten Zeilen in den Blöcken durch 
„<<<“ gekennzeichnet wurden. Bei- 
spielsweise folgt dem JSR MONITOR auf 
$0308 ein BCC, so daß die CC/CS-Zeile 
hervorgehoben wurde. 


Man kann nun die Laufzeit der verschiede- 
nen Routinen einfach bestimmen. Zur Er- 
leichterung habe ich im Quelltext am rech- 
ten Rand die jeweilige Zyklenzahl ver- 
merkt. Es ergeben sich dann die in der 
Tabelle 3 zusammengefaßten Zahlen. Er- 
wartungsgemäß wird IMPL1 von den bei- 
den anderen Routinen geschlagen. Nicht 
unmittelbar vorherzusehen war jedoch, 
daß IMPL2, für welches sich eine mittlere 
Laufzeit von 3918 / 126 = 31.1 Zyklen 
ergibt, deutlich schneller als IMPL3 ist. 


Tabelle 3: Zyklenzahl 


126 x 
948 * 
126 * 


58303-508305: 
HR3B6-$HA3BC: 


$d39E 
$8318-$08315: 114 = (2 +3) 
126 « (2 +2). 
306 =» (3 + 3) 


126 » (5 +2) 


$B316-$P31C: 


3918 


126 & 3 
249 =» {2 +3) 
126 » (2 +2) 
126 *& (3 + 2} 
3356 =» (3 +3) 
126 & 3 


$P31E 
$9329-$9325: 


$9326-$932C: 
$032D 


sıos 





Die Implementation 


Die FLAG.MONITOR-Utiity belegt den 
Speicherplatz von $8000 bis $8336. Be- 
ginnend bei $8337 werden die 19 Bytes 
langen Blöcke aufgebaut, deren Anzahl 
(und damit auch die höchste von FLAG- 
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‚MONITOR benutzte Adresse) vom An- 
wender bestimmt wird. Die Maximalzahl 
der verwalteten Blöcke habe ich auf 253 
beschränkt, so daß in keinem Fall das 
DOS, welches üblicherweise bei $9600 
startet, zerstört wird. Die Routinen benöti- 
gen ferner noch 6 Speicherplätze in der 
Zero-Page, die jedoch Immer gesichert wer- 
den. 


ANZAHL gibt die Anzahl der schon ange- 
legten Blöcke an, während sich in 
ENDPTR die Adresse des ersten freien 
Speicherplatzes hinter den Blöcken befin- 
det. Alle übrigen Variablen dienen nur zur 
kurzfristigen Speicherung von Werten und 
werden im weiteren erklärt. 


ZEHNPOT enthält eine Tabelle von Zeh- 
nerpotenzen, die bei der Hex-Dez-Um- 
wandlung benutzt werden. FLAGNAME 
und TEXT definieren einige Texte, auf die 
aurch DRUCKEN zugegriffen wird. 


SICHZUST bzw. RESTZUST sichert bzw. 
restauriert den Zustand, in welchem die 
Utility aufgerufen wurde. Schließlich aür- 
fen durch FLAG.MONITOR keine Regi- 
sterinhalte oder Flags verändert werden. 
Diese beiden Routinen werden von 
INITIAL, MONITOR und DRUCKEN aufge- 
rufen. 


INITIAL versetzt den Datenbereich in ei- 
nen wohldefinierten Zustand, indem AN- 
ZAHL auf OÖ und BLOCKPTR auf die erste 
freie Adresse hinter dem Code geseizt 
wird. 


MONITOR ist das Haupiprogramm und 
besteht im wesentlichen aus Aufrufen von 
Unterprogrammen. Zunächst wird die 
Adresse der aufrufenden Stelle ermittelt 
und in JSRADR gespeichert. Man beach- 
te, daß sich auf dem Stack die um 1 ver- 
minderte Rückkehradresse befindet. In 
SUCHEN wird getestet, ob für diese 
Adresse schon ein Block angelegt wurde. 
In diesem Fall ist C = O0 und BLOCKPTR 
zeigt auf eben diesen Block. Andernfalls 
weist BLOCKPTR auf den ersten Block, 
dessen JSR-Adresse größer als die vor- 
gegebene ist, und ZAEHLER gibt die An- 
zahl der Blöcke jenseits von BLOCKPTR 
an. ANLEGEN nutzt diese Information 
dann aus, indem es erst die folgenden 
Blöcke nach oben schiebt und in dem so 
entstandenen freien Raum einen neuen 
Block (mit leeren Zählern) anlegt. Durch 
dieses Verschieben wird erreicht, daß sich 
die Blöcke immer in aufsteigender Reihen- 
folge befinden. Die Routine EINTRAGEN 
inkrementiert dann abhängig vom Prozes- 
sor-Status die Zähler. 


Die Routine DRUCKEN gibt die Informa- 
tion aus den zuvor angelegten Blöcken 


formatiert aus und benutzt unter anderem 
die Routinen IDENCODE und HEXDEZ. 


Zum besseren Verständnis von |DEN- 
CODE habe ich in der Tabelle 4 die Op- 
codes der Branch-Anweisungen zusam- 
mengefaßt. Aus ihr ersieht man (in binärer 
Darstellung), daß ein Branch-Code immer 
die Form hh01 0000 oder hh11 0000 hat. 
Durch schrittweises Schieben nach rechts 
wird, falls ein Branch-Code vorliegt, hh + 
1 in IDENT abgelegt. 


HEXDEZ führt die Umwandlung einer Hex- 
Zahl in einen String aus dezimalen Ziffern 
durch. 


Tabelle 4: Branch-Codes 


BPL - $1ı8 - sel 
BMI $s36 - BBll 
BVC $59 - Bıgı 
BVS $7B - Bl 
BCC ss - 1901 
BCS $BB - 1911 
BNE sp - 1191 

1117 


BEQ SFd 





Schlußbemerkungen 


Wenn zur Analyse eines Programms viele 
MONITOR-Aufrufe eingestreut werden, so 
vergrößern diese natürlich die Ausfüh- 
rungszeit. Obwohl das exakte Ausmaß der 
Verzögerung von der konkreten Situation 
(Anzahl der Blöcke, Zustand der Flags) 
abhängt, läßt es sich mit etwa 500 + 40 « 
S Zyklen abschätzen. Darin sei S die mitt- 
lere Anzahl der Blöcke, die durchsucht 
werden müssen, bevor der richtige gefun- 
den wird. 


Falls z.B. im Verlauf des Programms 20 
verschiedene Blöcke aufgebaut wurden, 
müssen im Durchschnitt 10 Blöcke durch- 
sucht werden. Der Aufwand für jeden Auf- 
ruf von MONITOR beträgt dann also unge- 
fähr 500 + 40 x 10 = 900 Zyklen. Für 
jeweils 1111 Aufrufe muß man daher mit 
einer Verzögerung von 1 Sekunde 
rechnen. 


Bei Abschätzung der obigen Formel bin 
ich davon ausgegangen, daß die Anzahl 
der Blöcke sehr viel geringer ist als die 
Anzahl der MONITOR-Aufrufe. Aus die- 
sem Grund kann der durch die Routine 
ANLEGEN verursachte Aufwand vernach- 
lässigt werden. Ferner habe ich angenom- 
men, daß beim Inkrementieren 2 der 4 
Flag-Zahler behandelt werden müssen. 
Wenn natürlich immer nur PL, VC, CC und 
NE vorliegen, muß die Zyklenzahl noch 


etwas höher angesetzt werden. 
37 
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80-Zeichen-Karte m.Softswitch 236, - 16 K-Language-Karte 138B,- 

| Centronics-Karte von Epson für Graphik u für Text . .. 145, - 
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Floppy-Controller 
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Apple //c (mit Drucker-Kabel) DM 798,00 
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Die Ergebnisse vieler Stunden 
vor dem Apple hier zu Papier gebracht. 





Es geht hier weniger um das elementa- 
re Programmieren des Rechners, son- 
dern um Assemblerprogramme, die 


Das Buch erklärt die Verfahren, mit 
denen die Informationen auf die Dis- 
ketten geschrieben werden, mit denen 





extensiv Monitor-ROM-Subroutinen die Steuerung der Laufwerke erfolgt, 

benutzen. Diese hat der Autor nach mit denen Betriebssystem und Pro- | 
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nen komplettiert. Eine ausreichende 
Dokumentation ist dabei immer ge- 
währleistet. Sie geht schrittweise vor, 
von der Aufgabenstellung über die 
Programmentwicklung bis zum lauffä- 
higen Maschinenprogramm. die ange- 
botenen Beispiele sind ausbaufähig. 


Das Buch zum Apple Il 


Theorie und Praxis des Apple-Il-Sy- 
stems. Von E. Esders. 

210 S., 119 Abb. geb. DM 54.- 

ISBN 3-7723-7641-X 


Esders 
Das Buch zum Apple Il 


“ 


we 


Einzelschrittdokumentation ein, außer- 
dem sind schwierige Programmstellen 
durch Flußdiagramme dargestellt, Nun 
kann der Apple-II-Fan Disketteninfor- 
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pulieren und eventuell das Betriebssy- 
stem ändern, 


DOS 3.3 — das Disketten- 
Betriebssystem des Apple-Il 
Eine ausführliche Dokumentation der 
Systemprogramme. Von B, Ruhland. 
253 S., 12 Abb. Geb. DM 48.- 

ISBN 3-7723-7691-6 


der große Fachverlag für angewandte Elektronik und Informatik 
Franzis-Verlag, München 
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FLAG. MONITOR 


BBBB: AC AC BP 
8BB3: AC C2 89 
suBE: ACC 81 


: 8D BC 89 
: BE BD 86 
: 8C dE 80 


von 





said 
FLAG.MONITOR 
Michael G. Schneider 


arena 


ORG $8A0p 


JMP INITIAL 
JMP MONITOR 
JMP DRUCKEN 


m —— m 7 m. nn m mn mn u en no 


BLOCKLEN EQU 19 


ZEROPAGE EQU $B® 
BLOCKPTR EQU ZEROPAGE 
QUELLPTR EQU ZEROPAGE+H2 
ZIELPTR EQU ZEROPAGE+4A 
OPCPTR EQU ZEROPAGE+4 


COUT EQU S$FDED 
CROUT EQU $FD8BE 
PRHEX EQU $FDDA 
PRBLZ EQU $FY4AA 


ANZAHL DS 
ENDPTR DS 


SICHERA DS 
SICHERX DS 
SICHERY DS 
SICHERP DS 
SICHERZP DS 


FLAG DS 
STATUS DS 
IDENT DS 
ZAEHLER DS 
JSRADR DS 


HEXWERT DS 
DEZSTRNG DS 


—— ——— —— 


ZEHNPOT DFB %$89,$96,$98 ; 100BHB09 
DFB $49,$42,$0F ; 1d0800# 
DFB $Aß,$86,$01 ; 109090 
DFB $19,$27,500 ; 18008 
DFB $E8,$03,$00 ; 1009 
DFB $64,$09,$0% ;108 
DFB $BA,$509,$00 ;10 

$61,509,508 : 


FLAGNAME ASC  "PLMIVEVSCCCESNEEQ"" 
03 63 63 


TEXT 
TXTJISR "ISR-Adr : $" 
BA AB A4 
BB 
TXTUBRLF "tt Überlauf II!" 
E2 ES F2 
Al AL Al 
#0 
TXTSU nun 
TXTGLHZ il 
DB 
TXTBRNCH N gect 


* Sichere den momentanen Zustand (alle 
* Register, Prozessor-Status sowie den 
* Speicher von $P® bis $95) 


SICHZUST STA SICHERA 
STX SICHERX 
SsTY SICHERY 





SICHERP 

#9 
ZEROPAGE,X 
SICHERZP,X 


#* Restauriere den alten Zustand. 


RESTZUST LDX #5 
L2 LDA SICHERZP,X 
STA ZEROPAGE,X 
DEX 
BPL L2 
LDA SICHERP 
PHA 
LDY SICHERY 
SICHERX 
SICHERA 


= Initialisiere die Anzahl der Blöcke 
x* und den Pointer auf deren Ende. 


INITIAL JSR SICHZUST 

LDA #9 

STA ANZAHL 

LDA #<BLOECKE 

STA ENDPTR 

LDA #>BLOECKE 
ENDPTR+1 
RESTZUST 


* Hauptprogramm: Trage den Flag-Zustand 
* in einem der Blöcke ein. Lege diesen 


* notfalls noch an 
MONITOR JSR SICHZUST 


* Hole die Adresse der rufenden Stelle 
x vom Stack und lege sie in JSRADR ab 


PLA 

TAX 

PLA 

TAY 

PHA 

TXA 

PHA 

SEC 

SEC #2 

BCS L3 

DEY 

STA JSRADR 

STY JSRADR+1 

JSR SUCHEN 

BCC L4 

LDA ANZAHL 

CMP #253 

BEQ LS 

JSR ANLEGEN 
LA JSR EINTRAG 
L5 JSR RESTZUST 

RTS 


m m oo om os rs me m EEE BEP ET BER 


* Suche die schon vorhandenen Blöcke 
* nach der aktuellen Adresse ab. 


SUCHEN LDA #<BLOECKE 
STA BLOCKPTR 
LDA #>BLOECKE 
STA BLOCKPTR+1 
LDA ANZAHL 
STA ZAEHLER 
BNE L9 
SEC 
RTS 
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INY 
LDA (OPCPTR),Y 
STA (BLOCKPTR),Y 


* Berechne Pointer auf nächsten Block. 


L7 LDA BLOCKPTR 
ADC #BLOCKLEN . und lösche alle Zähler. 
BCC L8 
ING BLOCKPTR+1 LDA #9 
| : STA BLOCKPTR INY 


DEC ZAEHLER 
BEQ L6& 


STA (BLOCKPTR),Y 
CPY #BLOCKLEN-1 
BNE L16 
* Vergleiche die beiden Adressen, RTS 
LO LDY #1 
LDA (BLOCKPTR),Y 
CMP JSRADR+1 
BCC L7 
BNE L1Iß 
DEY 
LDA (BLOCKPTR),Y 
CMP JSRADR 
Bee 717 
BNE L1® 
SEE 
L1® RTS 


BE — 1——— -  ——o— 


* Trage den Prozessor-Status in die 
* Zähler ein, 


EINTRAG LDA SICHERP 
PHA 
PHA 
PHA 
PHA 


* Inkrementiere die Gesamtsumme . 


LDY #4 

JSR INKREMNT 
* Lege einen neuen Block bei (BLOCKPTR) 
* an. Schiebe zuvor ZAEHLER Blöcke nach 
* oben. 


. und auch die PL-VC-CC-NE-Zähler. 


PLP 
BMI LI17 
LDY #7 
JSR INKREMNT 


ANLEGEN LDX ZAEHLER 
BEQ L14 


LDA ENDPTR 
LDY ENDPTR+1 
STA ZIELPTR 
STY ZIELPTR+1 
SEC 

SEC #BLOCKLEN 
BCS L12 

DEY 

STA QUELLPTR 
STY QUELLPTR+1 


PLP 

BVS LI18 

LDY #19 

JSR INKREMNT 


PLP 

BCS L19 

LDY #13 

JSR INKREMNT 


* Kopiere von (QUELLE) nach (ZIEL). 


PLP 
BEQ L2ß 
LDY #16 
JSR INKREMNT 


LDY #+BLOCKLEN-1 
L13 LDA (QUELLPTR),Y 

STA (ZIELPTR),Y 

DEY 

BPL LI13 

LDA QUELLPTR 

LDY QUELLPTR+ 

DEX 

BNE Lil 


L2% RTS 


* nn nn 


* Inkrementiere den durch (BLOCKPTR),Y 
* bestimmten 3-Byte-Zähler. 


INKREMNT SEC 
LDX #3 
L21 LDA ({BLOCKPTR),Y 
ADC #9 
STA ({BLOCKPTR),Y 
BCC L22 
INY 
DEX 
BNE L21 


* Erhöhe ANZAHL und ENDPTR um einen Block 


L14 INC ANZAHL 
CLC 
LDA ENDPTR 
| ADC #BLOCKLEN 
| : STA ENDPTR 
BCC L15 
INC ENDPTR+1 


* Achtung: Überlauf! 


* Lege die JSR-Adresse im Block ab, 
LDA #1 

LDY #2 

STA (BLOCKPTR),Y 
RTS 


L15 LDY +9 
LDA JSRADR 
STA OPCPTR 
STA {BLOCKPTR),Y 
INY 
LDA JSRADR+1 
STA OPCPTR+1 
STA (BLOCKPTR),Y 


* Drucke die zuvor angelegten Blöcke 
* formatiert aus. 


DRUCKEN JSR SICHZUST 
LDA ANZAHL 
BEQ L28 
STA ZAEHLER 
LDA #<BLÜECKE 
STA BLOCKPTR 
LDA #>BLOECKE 
STA BLOCKPTR+1 
JSR CROUT 


setze das Überlauf-Byte auf ®, 
INY 
LDA #9 
STA (BLOCKPTR),Y 


speichere den Üpcode, 





Peeker 9/85 37 


38 


81DE: 


8ölEl: 
81lES3: 
8lE6: 
8lEß: 
SIEA: 
8lED: 
BlEF: 
8lrl: 


8lr4: 
BIF6: 
8lF8: 
SIFA: 
ölrt: 
ölrF: 
8202: 
8285: 
8297: 


B2BA: 
8280: 
S2BE: 
8210: 
8213: 
8214: 
8215: 


Selr: 
S2lh: 
S2ln: 


B22B: 
BZAR: 
8225: 
8228: 
BRRB: 
BZZE: 
8231: 
8235: 


8235: 
8236: 
83238: 
BR3A: 
823C: 
823E: 
8248: 


8243: 
8246: 
8248: 
824B: 


B2A0: 
BZAE: 
B25B: 
82052: 


2d 


AB 
2d 
AB 
Bi 
20 
Ad 
Bl 
29 


Ad 
Bl 
Fo 
AB 
28 
28 
2d 
AB 
2d 


A2 
AB 
Bl 
9D 
88 
CA 
19 


29 
20 
2d 


Ag 
8D 
29 
20 
EE 
AD 
c9 
Dß 


18 
AB 
69 
85 
= 
E6 
2d 


CE 
D9 
29 
56H 


ac 


29 
9F 
Bl 
DB 
DA 
BB 
80 
DA 


62 
D9 
B5 
dc 
9F 
8E 
8E 
2Ö 
9F 


B2 
D6 
DB 
1C 


F7 


64 
AB 
8öE 


BB 
16 


CA 
8E 
16 
16 
84 
Fo 


89 
13 
80 
B2 
81 
SE 


19 
93 
93 


#3 
dB 
d0 
d4 


82 


82 


FD 


FD 


Be 
FD 
FD 


82 


80 


82 
82 
FD 


8d 
82 
FD 
8% 
89 


FD 


80 
BB 


338 
339 
34Aß 
341 
342 
343 
344 
349 
346 
347 
348 
349 
35B 
3öl 
352 
353 
354 
355 
356 
397 
358 
359 
369 
361 
362 
363 
364 
365 
366 
367 
368 
369 
378 
371 
372 
373 
374 
375 
376 
377 
378 
379 
380 
38l 
382 
383 
384 
385 
386 
387 
388 
389 
398 
391 
Sr 
393 
394 
395 
396 
397 
398 
399 
Ad 
al 
492 
483 
404 
485 
Aad6 
497 
ad8 
AB9 
41% 
all 
412 
413 
414 
415 
416 
417 
418 
A19 
420 
a2l 
ARE 
423 


* Identifiziere den Opcode. 
JSR IDENCODE 
* Gib die JSR-Adresse aus ... 


LDY #TXTJSR-TEXT 
JSR PRNTTXT 

LDY #1 

LDA (BLOCKPTR),Y 
JSR PRHEX 

LDY #8 

LDA (BLOCKPTR),Y 
JSR PRHEX 


* ... und eventuell die Überlauf-Info. 


LDY #2 
LDA (BLOCKPTR),Y 
BEQ L24 
LDY #TXTUBRLF-TEXT 
JSR PRNTTXT 

L24 JSR CROUT 
JSR CROUT 
LDY +TXTSU-TEXT 
JSR PRNTTXT 


* Kopiere die Summe nach HEXWERT, 


LDX #2 
LDY #6 

L25 LDA (BLOCKPTR),Y 
STA HEXWERT,X 
DEY 
DEX 
EPL L25 


* „.. wandle sie in das dezimale System 
* um und drucke sie dann aus. 


JSR HEXDEZ 
JSR PRNTDEZ 
JSR CROUT 


* Gib die Summen der 4 Flags aus. 


LDA #9 
STA FLAG 
L26 JSR  PRNTFLG 
JSR CROUT 
INC FLAG 
LDA FLAG 
CMP #4 
BNE L26 


* Setze BLOCKFTR auf den nächsten Block 


CLG 
LDA BLOCKPTR 
ADC #BLOCKLEN 
STA BLOCKPTR 
BCC L27 
INC BLOCKPTR+1 
L2'7 JSR  CROUT 


* Nächster Block. 


DEC ZAEHLER 
BNE L23 

L28 JSR RESTZUST 
RTS 


HM | m 


* Identifiziere den Opcode: 


* dd . kein Branch-Befehl 
* 1 ... BPL oder BNI 
* 2 „.. BVC oder BVS 
#3 „me BEE oder BCs 
x 4 BNE oder BEQ 


IDENCODE LDY #3 
LDA (BLOCKPTR),Y 
LDX #8 
LDY +4 


L3ß 


* ne 


* Wandle HEXWERT in DEZSTRNG um. 


HEXDEZ LDX #9 
LDY #9 
El LDA #"g" 
STA DEZSTRNG,X 
BNE L33 ;immer] 
* Sie ließ sich subtrahieren, 


L32 STA HEXWERT+2 
PLA 
STA HEXWERT+1 
PLA 
STA HEXWERT 
INC DEZSTRNG,X 


* Versuche, ob sich die Zehnerpotenz von 
* HEXWERT subtrahieren läßt, 


L33 SEC 
LDA HEXWERT 
SBC ZEHNPOT,Y 
PHA 
LDA HEXWERT+1 
SBC ZEHNPOT+1,Y 
PHA 
LDA HEXWERT+2 
SBC ZEHNPOT+2,Y 
BCS L32 


* Die Differenz wäre negativ. Also gehe 
* zur nächsten Ziffer/Potenz über. 


PLA 
PLA 
INY 
INY 
INY 
INX 
CPX #8 
BNE 
RTS 


+ mn mn nn nn a rn m er m rn rn 


* Drucke einen der Texte aus, 


PRNTTXT LDA TEXT,Y 
BEG L34 
JSR COUT 
INY 
BNE PRNTTÄT 
L34 Ris 


* = m m m m rm Sl m m m a a a a a 


;immer! 


* Gib die Dezimalzahl aus, wandle aber 
* führende Nullen in Leerzeichen um 


PRNTDEZ LDY #9 
L35 LDA DEZSTRNG,Y 
CMP Fun 
BNE L36 
LDA Eee 
JSR COUT 
INY 
CPY #7 
BNE L35 


LDA DEZSTRNG,Y 
JSR COUT 

INY 

EPY #8 

BNE L36 
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RTS 





a a m nn m mm num nn nn u u na 


* Drucke die 


zwei Summen des Flags (für 


* Status = P bzw. 1) aus. 


PRNTFLG LDA 
STA 
BEQ 
ING 
LDX 
JSR 


# Berechne de 


L38 LDA 
ASL 
ADC 
ASL 
TAY 
LDA 
JSR 
LDA 
JSR 
LDY 
JSR 


und den 


LDA 
ASL 
ADC 
ADC 
TAY 


* Kopiere die 


LDX 
L39 LDA 
STA 
DEY 
DEX 
BPL 


* ... und sub 
* (Status = | 


LDA 
BEQ 


SEC 
LDX 
LDY 
LDA 
SBC 
STA 
INX 
INY 
TXA 
EOR 
BNE 


* Gib sie in 


L4l JSR 
JSR 
LDA 
BEQ 


* Liegt das i 


DEC 
BNE 
LDY 
JSR 
L42 RTS 


+ 

STATUS 

138 ;immer! 
STATUS 

#8 

PRBL2 


n Index des Namens .. 
FLAG 


STATUS 


FLAGNAME, Y 
GOUT 
FLAGNAME+1,Y 
COUT 
#TXTGLHZ-TEXT 
PRNTTXT 


Index des Zählers. 
FLAG 


FLAG 
#9 


Zahl nach HEXWERT 


#2 
(BLOCKPTR),Y 
HEXWERT,X 


L39 


trahiere sie gegebenenfalls 
) von der Gesamtsumme. 


STATUS 
L41 


+ 

+4 
(BLOCKPTR) ‚Y 
HEXWERT , X 
HEXWERT, X 


#3 
LAB 


Dezimaldarstellung aus. 


HEXDEZ 
FRNTDEZ 
STATUS 
L57 


nteressante Flag schon vor? 


IDENT 

L42 
#TXTBRNCH-TEXT 
PRNTTXT 


a 


BLOECKE 


Dieses Programm wurde mit 
erstellt. Bei der Konvert 
Format wurden die lokalen 
bis L42 umgewandelt 


dem S-C Macro Assenbler 
ierung in das Big-Mac- 
Labels in die Labels L1 








).4 ASSEMbLER 4 


FLAG.MONITOR.TEST 


rer er 
FLAG.MONITOR.TEST 
Michael G. Schneider 


Eau 


ORG $38# 


VO ST BRWUD Hm 


30: ac 38 83 JMP START 


pn er mem ee TEE TEE (UEEn SEEER DB mag 


WERT EQU $Eß 
INITIAL EQU $8dde 


MONITOR EQU $8693 
DRUCKEN EQU $80B6 


IMPL1 CLC 
LDA WERT 
IMPLI11 ADC WERT 
JSR MONITOR 
BCGC IMPLIL 
RTS 


IMPL2 LDA WERT 
IMPL21 ASL 
JSR MONITOR 
BPL IMPL21 
IMPL22 ADC WERT 
JSR MONITOR 
BCC IMPL22 
RTS 


En 


IMPL3 LDA 

IMPL31 ASL 
JSR MONITOR 
BCG IMPL31 

IMPL32 SBC WERT 
JSR MONITOR 
BCS IMPL32 
ADC WERT 
RTS 


euere am mm nun 


WERT 


START JSR INITIAL 
LDA #2 
STA WERT 
JSR IMPLS 
JSR IMPL2 
JSR IMPLI1 
INC WERT 
JSR MONITOR 
BPL LOOP 
JSR DRUCKEN 
RTS 


Zum Ausprobieren dieser Utility laden Sie mit BLOAD FLAG 
.MONITOR und BLOAD FLAG.MONITOR.TEST die beiden Pro- 
gramme, schalten den Drucker mit PR#1 ein und starten das 
Demo mit CALL 768, 
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Tıps und Tricks 
ın Pascal 











Teil 2: Kann man den P-Code optimieren? 


Um die Antwort gleich vorwegzunehmen: 
Sie lautet „ja“. Die Methoden, um dies zu 
erreichen, sind mannigfaltig und bedürfen 
Keiner Spezialkenntnisse. Jeder Pascal- 
Programmierer, ob Anfänger oder Fortge- 
schrittener, kann sich leicht ein paar „gol- 
dene Regeln” merken, die jedes Pascal- 
Programm kürzer und schneller machen. 
Um diese Regein aufzustellen, muß man 
sich sehr gut im sog. P-Code auskennen. 
Genaue Untersuchungen zeigen nämlich, 
daß man den Code eines Programms 
durchaus verkürzen kann, ohne dessen 
Funktion zu ändern. 

Ein einfaches Beispiel aus der Maschinen- 
sprache wäre etwa die Benutzung eines 1- 
Byte-Zählers, der innerhalb statt außerhalb 
der Zeropage liegt. Ein DEC-Befehl ver- 
mindert einen solchen Zähler, gleich wo er 
sich befindet — nur der Zeropage-DEC- 
Befehl ist sowohl kürzer als auch schnel- 
ler. 


Was ist P-Code? 


Bevor ein Programm ausgeführt werden 
kann, muB es vom Compiler übersetzt 
werden. Der Code, der bei diesem Über- 
setzungslauf entsteht, ist kein 6502-Ma- 
schinencode, sondern ein Pseudo-Code 
(P = Pseudo) für eine fiktive bzw. hypo- 
thetische’ Maschine, die in dieser Form gar 
nicht existiert. Diese Maschine wird soft- 
waremäßig emuliert. Dabei wird jeder P- 
Code-Befehl vom P-Code-Interpreter ab- 
gearbeitet. Diese Methode ist quasi eine 
Zwischenlösung zwischen reiner Überset- 
zung (z.B. vom BASIC- oder Pascal- 
Quelltext in die Maschinensprache) und 
reiner Interpretation (z.B. des Applesoft- 
Quelltextes durch den Applesoft-Inter- 
preter). 
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Der P-Code selbst ist ein sehr kompakter 
Code, der äußerst viele 1-Byte-Befehle 
kennt, so z.B. für alle arithmetischen 
Ganzzahl- oder Fließkomma-Operationen. 
Dies erklärt auch, warum der Code von 
sehr langen Programmen relativ kurz ist 
und auch in Maschinen mit wenig Spei- 
cher (64K) ablaufen kann. 


Regel 1 
(Kurze-Variablen-Regel) 


Es gibt P-Code-Befehle, um auf die ersten 
Variablen, die in einem Programm oder 
einer Prozedur definiert wurden, zuzugrei- 
fen. Von diesen speziellen Befehlen gibt 
es 16 für globale Variablen und 16 für 
lokale Variablen. Diese 1-Byte-Befehle 
beinhalten dann nicht nur die Operation, 
sondern auch den Operanden. 

Jeder dieser Befehle kann ein Wort (16 
Bits) laden, also Variablen vom Typ Inte- 
ger, Char, Boolean, Pointer und Adressen. 
Das bedeutet, daß die ersten 16 Variablen 
eines Programms oder einer Prozedur 1- 
Wort-Variablen sein sollten, also keine 
großen Arrays oder Records, Files oder 
Strings. Es kommt also lediglich auf die 
Reihenfolge der Definition der einzelnen 
Variablen an. 

Wenn man dies beachtet, kann man bis zu 
zwei Bytes pro Ladebefehl einer solchen 
Variablen sparen. Ein Ladebefehl tritt z.B. 
bei der Zuweisung 

A:=B 

auf. B wird geladen und dann in A gespei- 
chert. Beispiel 1 macht deutlich, daß hier 
der Code kürzer ist und trotzdem dasselbe 
leistet. Regel 1 möchte ich deswegen die 
Kurze-Variablen-Regel nennen. Sie be- 


von Dieter Geiß 


sagt, daß man kurze Variablen, d.h. ein 
Wort umfassende Variablen, für die ersten 
16 Variablen wählen sollte, und zwar so- 
wohl im Programm (globale Variablen) als 
auch in jeder Prozedur (lokale Variablen). 
Man hat aiso lediglich auf die Reihenfolge 
der Definition der Variablen zu achten. 


Sind die ersten 16 Variablen deklariert, 
sollte man trotzdem nicht gleich die gro- 
Ben Variablen dahinter definieren, sondern 
weiterhin die kleinen zuerst. Denn bei den 
Variablen, deren relative Adresse im Spei- 
cher zwar größer als 16, aber noch kleiner 
als 127 ist, kann man pro Ladebefehl we- 
nigstens ein Byte sparen. 

Es wird zwar kaum ein Programm geben, 
das 127 globale Variablen benutzt, aber 
ein Array [1..100] of Integer kostet ja auch 
100 Worte, ein String 1-128 Worte, so daß 
man eventuell schnell an die Zahl 127 
herankommt. Für die Regel gilt nämlich 
immer die Anfangsadresse der Variablen, 
die sich im Bereich 1 bis 16 bzw. 17 bis 
127 befinden sollte. Die Anfangsadresse 
jeder Variablen erhält man durch ein Com- 
piler-Listing mit der (*$Lx*)-Option (s.a. 
Apple Pascal Language Reference Manu- 
al, S. 65). 

Man beachte, daß auch die Parameter ei- 
ner Prozedur zu deren lokalen Variablen 
gerechnet werden. Dasselbe gilt für die 
Programm-Parameter Input und Output. 
Diese belegen die beiden ersten Adres- 
sen der globalen Variablen eines Pro- 
gramms. Sie sind jeweils nur ein Wort 
lang, da es Zeiger-Variablen sind, die auf 
die File-Deskriptoren von Input und Out- 
put zeigen sollen, aber in der UCSD-Ver- 
sion nicht benutzt werden. Um Input und 
Output anzusprechen, werden intern viel- 
mehr direkt die Input- und Output-De- 
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skriptoren des Pascal-Systems über einen 
sog. „Intermediate*-Aufruf angespro- 
chen. Dies soll hier aber nicht weiter aus- 
geführt werden. 

Für Units gilt die Regel analog. Bei den 
Intrinsic-Units gibt es jedoch keine globa- 
len Variablen, sondern die „Extended"- 
Variablen. Das sind diejenigen, die im In- 
terface- oder im Implementation-Teil er- 
Klärt wurden und dann ein Data-Segment 
brauchen. Für diese Variablen gibt es kei- 
ne ganz kurzen Ladebefehle, aber bei den 
ersten 127 (kurzen) Variablen kann man 
analog zu oben jeweils ein Byte pro Lade- 
befehi sparen. 

Bei normalen Units gilt diese Regel nicht. 
Die dort erklärten Variablen gehören zum 
Hauptprogramm, sind also globale Varia- 
blen, deren Adresse erst durch den Linker 
festgelegt wird. Da der Compiler während 
des Übersetzens nicht weiß, wieviel Platz 
er reservieren muß, werden für jeden La- 
debefehl 3 Bytes, also das Maximum, re- 
serviert. 


Regel 2 
(Lokale-Variablen-Rege!) 


Nun zur zweiien Regel, die ich Lokale- 
Variablen-Regel nennen möchte. Man 
sollte darauf achten, lieber viele lokale Va- 
riablen in einer Prozedur zu definieren, als 
Variablen zu benutzen, die um ein oder 
mehrere Glieder in der statischen Ver- 
weiskette zurückliegen. Das Zurückgrei- 
fen auf diese Intermediate-Variablen ko- 
stet nämlich drei bis vier Bytes gegenüber 
einem Byte bei einer kurzen lokalen Varia- 
blen. 

Benutzt man also in mehreren Prozedu- 
ren, die den gleichen statischen Vorgän- 
ger haben, eine Indexvariable I, so emp- 
fiehlt es sich, diese nicht in der Vorgänger- 
prozedur ein einziges Mal zu erklären, 
sondern jeweils einmal lokal in jeder der 
Prozeduren. Das schützt auch vor unge- 
wollten Seiteneffekten. Zu dieser Regel 
siehe auch Beispiel 2. 


Regel 3 
(Record-Regel) 


Die Record-Regel besagt etwas Ähnli- 
ches wie die Kurze-Variablen-Regel. In ei- 
nem Record werden die ersten 8 (kurzen) 
Variablen bevorzugt behandelt und mit 
kurzen Ladebefehlen geholt. Dies gilt aber 
nur dann, wenn dessen Ädresse auf dem 
Stack liegt, also wenn der Zugriff auf ein 
Element des Records über eine Zeigerva- 
riable (Pointer) oder über einen Var-Para- 
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meter einer Prozedur erfolgt. Im übrigen 
sollte man in einem solchen Fall zusätz- 
lich, sooft es geht, einen With-Befehl be- 
nutzen. 


Beispiel 3 zeigt die Ausnutzung der Re- 
cord-Regel. Auch hier werden die Varia- 
blen mit Adresse 8 bis 127 mit kürzeren 
Befehlen behandelt als die restlichen. 


Regel 4 
(Leer-String-Regel) 


Wenden wir uns jetzt den Strings zu. Dort 
gibt es ebenfalls eine Reihe von Regeln, 
die man beachten sollte. Die Leer-String- 
Regel gilt für den Test, ob ein String leer 
ist oder nicht. Grundsätzlich gibt es dazu 
zwei Möglichkeiten: 

a)lS='"then..., 

b) If Length (S) = O ihen..., 

wobei S vom Typ String ist. Obwohl der 
zweite Ausdruck komplizierter aussieht, 
erzeugt er weniger Code. 


Regel 5 
(Concat-Regel) 


Die Concat-Regel für Strings besagt, daß 
der Concat-Befehl möglichst vermieden 
werden sollte. Will man einen String an 
den Anfang oder das Ende eines anderen 
Strings setzen, dann sollte man das mit 
dem Insert-Befehl erledigen, d.h. im Klar- 
text: Statt 

S := Concat (S, T) 

sollte man 

Insert (T, S, Length (S) + 1) 

und statt 

S := Concat (T, S) 

sollte man 

Insert (T, S, 1) 

benutzen. 

Der Grund für diese Regel liegt darin, daß 
es in UCSD-Pascal (im Gegensatz zu Mo- 
dula-2 unter dem UCSD-System) nicht er- 
laubt ist, Funktionen zu definieren, deren 
Funktionswert mehr als zwei Worte (für 
Reals) beträgt. Nun ist aber Concat eine 
solche Funktion. Intern wird der Aufruf von 
Concat durch einen Prozeduraufruf er- 
setzt. Dazu muß der Compiler eine Hilfs- 
variable (Funktionswert) anlegen, die zu- 
dem erst einmal initialisiert werden muß. 
Ein Concat-Aufruf mit zwei Argumenten 
resultiert dann in zwei internen Aufrufen 
einer Concat-Prozedur (nicht Funktion), 
die eigentlich „Sconcat“ heißt und im Pas- 
cal-System selbst definiert ist (Segment 
#0, Prozedur #23). Bei Insert dagegen 
erfolgt der Aufruf ohne Hilfsvariable. 


E 


gpascal g.4 


Regel 6 
(Konstanten-Regel) 


Die Konstanten-Regel gilt für Siring-, 
Long-Integer- und Set-Konstanten. Bei 
den Siring-Konstanten (const KString = 
'Dies ist ein konstanter String’) wird jedes- 
mal, wenn eine solche Konstante einer 
String-Variablen zugewiesen wird, der 
konstante String im Code eingebettet. Bei 
zehn Zuweisungen des gleichen konstan- 
ten Strings an zehn Variablen wird also der 
zehnfache Speicherplatz des einen kon- 
stanten Strings „verbraten“. Weist man 
jedoch diesen konstanten String zuerst ei- 
ner neuen Stringvariablen zu 

KStrVar:= KString 

und benuizt diese zur Zuweisung an die 
zehn anderen Variablen, kann man den 
Code kompakter machen. 

Bei den Long-Integer-Konstanten verfährt 
der Compiler denkbar ungünstig. Hat man 
eine konstante Long-Integer-Zahl (const 
MaxLong = 999999...) mit z.B. 36 Stellen 
definiert und weist diese dann einer Long- 
Integer-Variablen zu (z.B. Long:= Max- 
Long), so ergibt sich etwa derselbe Code, 
als wenn man ähnlich dem Horner-Sche- 
ma den Ausdruck 

Long: = ((9999 # 10000 + 9999) * 10000 
+ 9999) & 10000... 

berechnen würde. Dabei werden die Inte- 
ger-Konstanten 9999 und 10000 vorher in 
Long-Integer-Konstanten umgewandelt. 
Das ganze kostet dann über 190 Bytes für 
die eine einzige Zuweisung! Hat man z.B. 
zehn solcher Zuweisungen, so werden 
fast 2K benötigt. Eine Verkürzung ist mög- 
lich, wenn man wie bei den konstanten 
Strings verfährt und nur einmal einer Va- 
riablen die konstante Long-Integer-Zahl 
zuweist 

MaxLongVar:= MaxLong 

und dann immer diese Variable statt der 
Konstanten benutzt, d.h. 

Long:= MaxLongVar 

statt 

Long := MaxLong. 

Ähnliches gilt auch für konstante Mengen 
(Set). Statt zwanzigmal eine Abfrage wie 
fC in [a’..’z’] then... 

zu benutzen, sollte man eine neue Varia- 
ble einführen 

Var Klein: Set of Char 

und diese dann initialisieren 

Klein:= [’a’..'z’], 

um die Abfrage in 

If C in Klein then... 

umwandeln zu können. 
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Regel 7 
(Compiler-Rege!) 


Die Compiler-Regel bezieht sich auf die 
beiden Optionen (x$R-x*) und (*$I-x), die 
auch im Apple Pascal Language Referen- 
ce Manual auf den Seiten 67 und 63 be- 
schrieben werden. Mit R- wird das soge- 
nannte Range-Checking unterbunden, 
d.h. Subrange-, Array- und String-Zugriffe 
werden nicht mehr dahingehend über- 
prüft, also ob sie in den jeweils gültigen 
Grenzen liegen oder nicht. 

Die (*#$R-#*)-Option bringt immerhin drei 
bis fünf Bytes pro Array- oder Subrange- 
Zugriff. Dies spart bei sehr langen Pro- 
grammen, die ständig auf Arrays zugrei- 
fen, möglicherweise mehrere tausend 
Bytes. Programme mit der R-Option laufen 
dann natürlich auch etwas schneller. 
Anwenden sollte man ein R-Option aber 
nur, wenn man sicher ist, daß Index und 
Subrange-Grenzen nicht über- oder un- 
terschritten werden. Normalerweise kann 
man sich nur sicher sein, wenn man sein 
Programm verifiziert hat. Aber wer macht 
das schon? 

Durch die (*$I-x*)-Option spart man zwei 
Bytes pro VYO-Befehl, d.h. bei jeder Read-, 
Write-, Get-, Put-, Reset-, Rewrite-Anwei- 
sung usw. Auch hier muß man mit größter 
Vorsicht arbeiten, da bei nicht stattfinden- 
der I/O-Prüfung ein Programm nicht ab- 
bricht, wenn ein entsprechender Fehler 
auftritt. 

Hat man jedoch viele Bildschirmausgaben 
in seinem Programm, kann man dort ge- 
trost die I-Option einschalten, denn der 
Bildschirm wird als Ausgabegerät nie „off- 
line“ sein, es sei denn, die Firmware der 
80-Zeichenkarie wäre defekt. 

Ähnliches gilt für die Eingabe von der Ta- 
statur, die ja eigentlich immer da sein soll- 
te. So kann man bei jeder Eingabe von der 


Für Ilc und Ile mit 64K-Karte 





Double-Hires-Utility 


von Karl-Walter Bott, 1984, Programmadiskette und Manual, DM 48,— 


SUPERPLOT 


Tastatur, also bei jedem Read (Input, ...), 
und jeder Ausgabe auf den Bildschirm, 
also bei jedem Write (Output, ...), die 0.9. 
zwei Bytes einsparen. 


Regel 8 
(Standard-Prozedur-Regel) 


Es gibt noch weitere, jedoch mehr pro- 
grammiertechnische Kniffe der Code- 
Komprimierung, die wir unter der Stan- 
dard-Prozedur-Regel zusammenfassen 
wollen. Diese Kniffe verkürzen auch den 
Code, haben aber überdies den Vorteil, 
daß sie die gestellte Aufgabe zügiger erle- 
digen. Es handelt sich dabei um die Benut- 
zung der schnellen UCSD-Standard-Pro- 
zeduren Fillchar, Moveleft und Moveright. 
Als Aufgabe sei die Initialisierung eines 
zweidimensionalen Arrays gestellt, der die 
Grenzen 0..Xmax und 0..Ymax habe. Ein 
Algorithmus, um eine solche Matrix auf O 
zu Seizen, ist einfach und im Beispiel 4 
nachzulesen. Die zweite Version ist aber 
wesentlich effektiver, spart etwas Code 
und noch mehr Zeit. 

Um die Prozedur Moveright zu demon- 
strieren, sei die Aufgabe gestellt, ein Ele- 
ment in einen Array an der x-ten Stelle 
einzufügen, Statt nun mit einer For-Schlei- 
fe alle Elemente hinter der x-ten Stelle 
nach hinten zu schieben, geht dies auch 
mit einem einzigen Befehl (Beispiel 5). 
Das gleiche gilt für das Entfernen eines 
Flements aus einem Array. Auch hier ge- 
nügt ein Befehl für das Verschieben (s. 
Beispiel 6). 

Für die letzten drei Beispiele spielt die 
Sizeof-Funktion eine große Rolle. Benutzt 
man diese anstelle einer konstanten Zahl, 
so kann man sichergehen, daß nicht aus 
Versehen zuviel gelöscht oder verscho- 
ben wird. 


Zusammenfassung 


Zum besseren Überblick hier noch einmal 
alle Regeln kurz zusammengefaßt: 

Kurze-Variablen-Regel: Durch eine ge- 
schickte Reihenfolge definiere man die 


kurzen (1-Wort-Variablen) jedes Pro- 
gramms und jeder Prozedur zuerst. 
Lokale-Variablen-Regel: Man benutze 


möglichst lokale Variablen. 

Record-Regel: In einem Record definiere 
man ebenfalls die kurzen Variablen zuerst. 
Leer-String Regel: Man benutze zum Te- 
sten leerer Strings die Length-Funktion. 
Concat-Regel: Man ziehe die Insert-Pro- 
zedur der Concat-Funktion vor. 
Konstanten-Regel: Man benutze nicht zu- 
viele Zuweisungen von sString-, Long-Inte- 
ger- und Set-Konstanten. 
Compiler-Regel: Die beiden Optionen R- 
und |- sollten sooft wie möglich benutzt 
werden, aber nur wenn Indexüberschrei- 
tungen unmöglich sind bzw. kein I/O-Feh- 
ler in einem (Teil-}Programm auftreten 
kann. 

Die Standard-Prozedur-Regel: Man pro- 
grammiere mit Hilfe der Standard-Proze- 
duren Fillchar, Moveleft und Moveright so- 
wie der Standard-Funktion Sizeof statt mit 
For-Schleifen. 


Für Pascal 1.2 (128K-System) gibt es 
noch eine Möglichkeit, eventuell viel Spei- 
cher zu sparen, da es dort im Speicher 
Bereiche geben kann, die miteinander 
identisch sind. Von diesen Bereichen kann 
dann die Kopie gelöscht werden (Crun- 
ching). Doch dazu mehr im nächsten Bei- 
trag. 


s 
= 
or 


SUPERPLOT ist eine neue, ungewöhnlich kompakte und schnelle Ampersand-Utility für Double Hires, die einschließlich eines 
vollständigen ASCII-Shape-Zeichensatzes wahlweise in Bank 1 oder Bank 2 der Language Card liegt und damit sowohl unter 
ProDOS als auch unter DOS 3.3, falls letzteres in die LC-Bank geschoben wurde, benutzt und in eigene Applesoftprogramme 
integriert werden kann. SUPERPLOT unterstützt die üblichen HGR-Befehle, denen lediglich ein & vorangestellt werden muß, 
also z. B. & HPLOT 500, 100 TO 500, 150 usw. SUPERPLOT ist speziell für das Plotten von beschrifteten wissenschaftlichen 
Funktionskurven mit hoher Auflösung gedacht und weniger für HGR-Spiele. 
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Beispiele zur P-Code-Optimierung 
Beispiel 1 


(*x$L BSPlALST.TEXT«) 
program Bspla (input, output); 


var A : array [3..127] of integer; 
I : integer; {»beginnt bei Adresse 128*) 
J : integer; 
K : integer; 


=J; 

=K; 
K:=1I 

A [3] := 
end. 


(*$L BSPIBLST.TEXT*) 
program Bsplb (input, output}; 


(xDas Programm leistet dasselbe wie Bspla, 
ist aber 8 Byte kuerzerx) 


var I : integer; {»beginnt bei Adresse 3*) 
J : integer; 
K : integer; 
A: array [3..127] of integer; 


beein 
BR: 
J:=K 
K:=1I 
A [3] := 
end, 


F 


Beispiel 2 


(*$L BSP2ALST,TEXT«) 
program Bsp2a (input, output); 


procedure Aussen; 
var I : integer; (*Laufvariable fuer 3 Prozeduren«) 
procedure Innen]; 
begin 
for I :=B to 9 do (»irgendwas«) 
end; 
procedure Innen?; 
begin 
for I := 18 to 19 do (*#irgendwas«) 
end; 
procedure Innend; 
begin 
for I := 2B to 29 do (*irgendwas«) 


end; 


begin 
end; 


beein 
end, 


(x$L BSP2BLST.TEXT«*) 
program Bsp2b (input, output); 


(xDas Programm leistet dasselbe wie Bsp2a, 
ist aber 18 Byte kuerzer«) 


procedure Aussen; 
procedure Innen!; 
var I : integer; (*lokale Laufvariable«) 
begin 
for I :=ß to 9 do (sirgendwask) 
end; 


procedure Innen?; 


var I : integer; (lokale Laufvariable«) 


1 
1 
5 
£ 
1 
1 
2 
1 
1 
Ö 
d 
4 
8 
1 
d 
d 
Bd 
4 
8 
1 
l 
d 
d 
4A 
8 
d 
d 
2 
d 
Bd 
1 
1 
3 
Ö 
3 
3 
1 
i 
1 
i 
I 
2 
Ö 
d 
1 
2 
T 
l 
I 
2 
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IN HH 


SH 
aa na 5 9 H-BIa DH HH Drama 


> 





pascal 4 





begin 
for I := 19 to 19 do (*irgendwas«) 
end; 


procedure Innend; 
var I : integer; (*lokale Laufvariable«) 
begin 

for I := 2B to 29 do (*irgendwas#) 


end; 


begin 
end; 


bepin 
end. 


Beispiel 3 


MH 
wa 


BD Hm 
ASS RC FPFB—aEND ARD DSN DI DS A Go GA Ar br 


Pr 
{N 


1 
l 
3 
3 
3 
3 
3 
2 
3 
3 
3 
4 
1 
2 
d 
d 
3 





(*x$L BSP3ALST.TEXT*) 
program Bsp3a (input, output); 


type Rec = record 
array [®..127] of integer; 
integer; (*»beginnt bei Adresse 128*) 
integer; 
integer 


var Reci 


procedure Doit (var R : Rec); 


hen R.A [8] := 1 


Doit (Recl) 
end. 


(*$L BSPSBLST.TEXT#+) 
program Bsp3b (input, output); 


type Rec = record 
integer; (»beginnt bei Adresse +) 
integer; 
integer; 
array [8..127] of integer 


var Recl : Rec; 
procedure Doit (var R : Rec); 


begin 
with R do 
if I= J then 
if „ek then A [| = 
end; 


begin 
Doit (Recl) 
end. 


Beispiel 4 


(x$L BSPALST.TEXT«) 
program Bsp4 (input, output}; 


var A : packed array [®..18®, 8..186] of boolean; 
procedure Bsp4a; 


var I. interer, 
J : integer; 


begin 
for 7:9 
for J := 


to 189 do 
ö to 188 do A [I, J] := false 
end; 


procedure Bsp4b; 


(xkostet bei gleicher Leistung 48 Bytes 
weniger als Bsp4a«*) 
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B begin 
begin B end; 
fillchar (A, sizeof (A}, false) 12 
end; 


r 


procedure Bsp6; (x*Ausfuegen*) 
begin procedure Bsp6a (X : integer); 
end, 
var I : integer; 
Beispiel 5 begin 

for I:=X+1to 168 do A [I- 1] :=A [I]; 
(x$L BSP5LST.TEXT#) end: 
program Bspöund6 (input, output); 


Oo 


S5 95» a Jmzsma >. pP 55GDD re 


procedure Bsp6b (X : integer); 
type Element = integer; (xoder ein record...*) 


(xspart gegenueber 6a 12 Bytes«) 
var A : array [®..1@08] of Element; 
begin 
moveleft {A [X + 1], A [X], {188 - X) 
* sizeof (Element)): 


procedure Bsp5; (*»Einfuegen«) 


procedure Bsp5a (X : integer; E : Element); 


a 


var I : integer; 


begin 
for I := 99 downto X do A [I+ 1] :=A [TI]; 
A[X] :=E 

end; 


3a ARWÜUrrr hd GV r + 
r 


procedure Bsp5b (X : integer; E : Element); 
(«spart gegenueber 5a 14 Bytes*) 
begin 
moveright (A [X], A [X + 1], (188 - X) 
* sizeof (Element}); 


A [X] :=E 
end: Hinweis: Die Zahlen an den Zeilenanfängen sind die Word-Offsets 


für den Speicher bzw, Byte-Offsets für den Code. 


SUPERQUICK 


Ein superschnelles Disketten-Kopierprogramm 
von Arne Schäpers, 1985, Programmdiskette mit Anleitung, DM 48,— 


Mit SUPERQUICK ist es möglich, Disketten jeden Formats (DOS 3.3, ProDOS, UCSD- 
Pascal und CP/M) in einer unglaublich kurzen Zeit von nur 29 Sekunden (mit Formatie- 
rung) zu kopieren. Bei entsprechender Speichererweiterung kann der gesamte Disket- 
teninhalt eingelesen werden, um mehrere Kopien anzufertigen. Die Zeit für eine Einzel- 
kopie reduziert sich dann auf sage und schreibe 19 Sekunden. 

SUPERQUICK erkennt die 64K-Karte (in Slot 3) des Apple Ile und IIc sowie eine 16K- 
Language-Card in Slot O und bezieht diese selbständig als Datenpuffer ein. Darüber hin- 
aus werden die IBS-Karten AP17 in den Ausbaustufen 64K bis 256K automatisch unter- 
stützt und gegebenenfalls als weitere Puffer eingesetzt. 

Eine Anpassung an Laufwerke mit höherer Spurenzahl (bis 80 Spuren, 160-Spurlauf- 
werke können nach manuellem Side-Select ebenfalls betrieben werden) ist ohne 
Schwierigkeiten aus dem Programm-Menü heraus möglich. 
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7 Lu 


III HIPAYY DECKER 94 
p E ck ER AUFTRAG FÜR KLEINANZEIGEN 


N Bitte veröffentlichen Sie in der nächsterreichbaren Ausgabe nachstehenden 
Gelegenheitsanzeigen 











Text unter folgender Rubrik: 
[1] suche Hardware [] suche Software [] Tausch [] Verschiedenes 
[| biete Hardware [] biete Software "] Kontakte UL] Chiffre 


-FerrtE ALLERLEI TELGTE 
4 SEEFFFEEFFFFEE- 
-EEFFFR HH IN NIR 
REES Er DEE EILLIEN BEEBEEEE 
TITLE FE 
LILLIFEE DIDI DE 


Bitte jeweils 32 Buchstaben pro Zeile-einschließlich Satzzeichen und Wort- 
zwischenräume. Bitte Absender nicht vergessen. 
Chiffregebühr DM 6,— zuzügl. MwSt. 


pE MAGAZIN FÜR APPLE-COMPUTER 


‚Sete________ erschienenen 





Börse 

















Sie können unter dieser 
Rubrik zu einem besonders 
günstigen Preis 


@ Ihre Hardware und 
Software verkaufen 


@ Ihre Hard- und Software 
suchen a 
® Kontakte knüpfen und | 


vieles mehr 











Zu der in »peeker«, Heft 
I] Anzeige L] Produktbesprechung 





Musteranzeige privat 


1 Druckzeile a 32 Buch- 
staben nur DM 5,— 
zuzügl. ges. MwSt. 


über 


bitte ich um detaillierte Information. 
Ich wünsche IL] Prospekt, Datenblatt _] Preisliste L) schriftliches Angebot I] tel. Rückruf 


Beispiel: gebe ich neben- 
stehende Bestellung 
unter Anerkennung 
Ihrer in der Anzeige 
genannten Liefer- und 
| Zahlungsbedingungen 
| auf. 





nur DM 17,10 inkl. MwSt. 


Unterschrift (für Jugendliche unter 18 Jahren der Erziehungsberechtigte) 
Musteranzeige gewerblich 
Die einspaltige Millimeter- AÖBBDD EE (ER A 
zeile (42 mm breit) kostet 


a Produkt-Karte 





5,50 zuzügl. ges. MwSt. 





Ich habe einen Zutreffendes ankreuzen: 
Beispiel: 7 Apple Ilc 7] Kompatiblen, Modell 
Ä [] Apple lle IL] Macintosh 
| Neu im Angebot: once [I] Apple II Plus U Lisa 
separate Tastatur für Apple Il DI Apple Ill 
plus 16 Funktionstasten und sepa- 
ratem Ziffernblock. Ich bin 


[] überwiegend Anwender [] kaufmännisch [1 technisch 
LI] überwiegend Programmierer in 





| Fa. Keyboard & Co. 


nur DM 137,94 inkl. MwSt. DI] Basic DI] Applesoft I] MBasic 
[] Pascal [I Apple-Pascal [I] Turbo-Pascal 
[I Assembler [1] 6502 [I Z80 [1 68000 


Ich besitze folgenden Nicht-Apple-Computer: 


® 
z 
Q 
2 
ö 
= 
Q 
1 
E 
z 








Vorname, Name 


ANTWORTKARTE 


Beruf 


Siraße 





Wöahnort 


peeker-Börse 
Anzeigen-Service 


Dr. Alfred Hüthig Verlag 
Postfach 10 2869 
6900 Heidelberg 1 


PLZ 


P 

:O 

eD 

N "0. 
® Bitte veröffentlichen Sie den um- 
® 

®- 

D. 







stehenden Text von____Zeilen 
DM in der nächsterreich- 


a _= 
baren Ausgabe von »peeker« 









Datum Unterschrift 








© Karte bitte vollständig ausfüllen 

I Vorname, Name POSTKARTE 

3 Firma 

& Straße . 

nr PLZ/Ort 

POSTKARTE 
peeker 
Redaktion 


Postfach 102869 
6900 Heidelberg 1 


PLOT 


Telefon mit Vorwahl 





a 





Produkt- 
Karte 


Wünschen Sie 
weitere Informationen 
zu einem der im Heft 
vorgestellten 
Produkte ? 





Nichts einfacher als 
das. 

Produkt-Karte aus- 
füllen, mit 60-Pfennig 
frankieren und 
absenden. 


Vorher aber nicht 


vergessen: 

kreuzen Sie an, | 
welchen Informations-: 
wunsch Sie haben. 


Damit erleichtern Sie 
dem Hersteller 

eine gezielte Beant- 
wortung Ihrer Anfrage. 


Zum Schluß tragen 
Sie auf der Rück- 
seite die genaue 
Anschrift des 
Inserenten/Herstellers 
und Ihre vollständige 
Firmenanschrift ein. 





r MAGAZIN FÜR APPLE-COMPUTER 





Fotosatz ohne Umwege! 


Durch Verknüpfung von EDV und Fotosatzanlage 
Vorteile über Vorteile - für Autoren und Verlage 





Sind Ihre Texte schon erfaßt oder möchten Sie 
diese selbst auf einem Computer erfassen? 
Dann sprechen Sie mit uns! 

Wir lesen und konvertieren Ihre Daten 

zu Fotosatz. 


Bei uns finden Sie Beratung und Service 
zur Buchherstellung vom Satz über den Druck 
bis zum Einband. 


—//]/ Zechnersche Buchdruckerei 
—_ 6720 Speyer ‘ Daimlerstraße 9 : Postfach 2080 
HNZzZ Telefon (06232) 33076-79 : Telex 465167 
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Das Microsoft BASIC-80, auch MBASIC genannt, 
besitzt nicht nur eine große Verbreitung — MBASIC- 
Interpreter sind für fast alle Rechner verfügbar, die 
ein Betriebssystem wie CP/M oder MS-DOS benutzen — 
sondern auch etliche Befehle, die im Applesoft „durch 
Abwesenheit glänzen“ und nachträglich gepatcht 
werden müsssen. Dazu gehören die formatierte Zahlen- 
ausgabe (PRINT USING), die INSTR-Funktion, die 
Möglichkeit zum Löschen von Feldern und vieles mehr. 
Diese Erweiterungen vorzustellen und den erfahrenen 
Programmierer auf weitere syntaktische Unterschiede 
zum Applesoft hinzuweisen ist Ziel dieses Artikels. 








von Jörg Lange 


1. Laden des MBASIC-Interpreters 


Wie oben schon erwähnt, arbeitet MBA- 
SIC unter dem Betriebssystem CP/M, so 
daß zur Arbeit mit dieser Sprache neben 
der CP/M-2,2-Masterdisk, auf der sich der 
Interpreter befindet, auch eine im Apple 
installierte „Z80-Softcard” benötigt wird. 


Hinweise hierzu sowie eine Einführung in 
die CP/M-Befehle, deren Kenntnisse aber 
für den Anfang noch nicht notwendig sind, 
finden Sie z.B. in dem Artikel „OP/M für 
Einsteiger“ im Peeker 4/1985. 


Nach dem Booten der CP/M-2.2-Master- 
disk meldet sich der Rechner mit dem 
CP/M-Prompt „A>“. Der Befehl „MBASIC 
<Return>* startet den BASIC-Interpreter. 


Auf dem Bildschirm erscheint daraufhin 
eine Titelmeldung („BÄASIC-80 Rev. 5.2 
...) sowie das Bereitschaftszeichen 
„Ok", das nach jeder erfolgreichen Pro- 
gramm- oder Befehlsausführung ausge- 
geben wird. 
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MBASIC für den 
Applesoft-Profi 


2. Verlassen des MBASIC 


Bevor es in das Detail geht, soll noch 
verraten werden, wie man MBASIC wieder 
verläßt: 

SYSTEM: Dieser Befehl bewirkt — nach 
der Schließung noch offener Dateien - die 
Rückkehr in das CP/M-Betriebssystem. 
Programm und Variablen gehen dabei ver- 
loren! 


3. Variablentypen 
und Typvereinbarungen 


Neben den bekannten Variablentypen 
String (A$) und Integer (A%) stellt MBA- 
SIC für Gleitkommazahlen (Real) zwei Ab- 
speicherungsmöglichkeiten zur Verfü- 
gung: die einfach genaue Real-Variable (A 
oder Al) mit 7 signifikanten Stellen, von 
denen im Regelfall aber höchstens 6 aus- 
gegeben werden, sowie den „Doublepre- 
cision“-Typ (A#), der intern mit bis zu 17 
Stellen verarbeitet wird. Ausgegeben wer- 
den aber hier auch nur maximal 16 Stellen. 








Neben der Typenvereinbarung durch ein 
an den Variablennamen angehängtes Zei- 
chen (Suffix) wie z.B „$“ oder „#" gibt es 
die Möglichkeit, mit den DEF-Befehlen 
global Variablennamen mit bestimmten 
Anfangsbuchstaben einem Typ Zzuzu- 
ordnen. 


10 REM Beispiel 1 
20 DEFDBL |-M 
30. 2450.23 
40 J% = 54.46 
5048 — 145.35 


Durch den DEFDBL-Befehl in Zeile 20 
werden alle Variablen, deren erster Buch- 
stabe im Bereich „I" bis „M* liegt, im 
ganzen Programm zu Realvariablen dop- 
pelter Genauigkeit erklärt. Eine Suffix-Ver- 
einbarung hat jedoch Vorrang, so daß in 
unserem Beispiel | und K dem doppelt- 
genauen Typ zugeordnet werden, J% 
aber eine Integervariable bleibt. 

Eine Übersicht über Variablentypen und 
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Einige Applesoft-Befehle, die unter 
MBASIC/GBASIC bis einschließlich 
zur neuesten Version 5.27 fehlen: 


LOAD (Kassette) 
SAVE (Kassette) 
SHLOAD (Kassette) 
STORE (Kassette) 
-RESTORE (Kassette) 
FLASH 


DRAW, XDRAW 


ROT 
SCALE 


PR#s, IN#s 


Hinweis: 

Ein Testbericht zur Microsoft-Premium- 
Card mit GBASIC 5.27 folgt im näch- 
sten Peeker. 





DEF-Befehle gibt Abschnitt A der Refe- 
renztabelle. 


4. Umwandlung von Zahlentypen 


MBASIC führt eine automatische Konver- 
tierung durch, wenn z.B. eine Real-Zahl 
einer Integervariablen zugewiesen wird. In 
einem solchen Fall wird immer zur nächst- 
kleineren ganzen Zahl abgerundet (A% = 
-0.1: PRINT A% ergibt -1!). Die Umwand- 
lung bei Realtypen von einfacher in dop- 
pelte Genauigkeit erfolgt durch Ergänzung 
von Nullen, in umgekehrter Richtung wird 
ggf. auf 7 Stellen gerundet. 

Der Vollständigkeit halber sei darauf hin- 
gewiesen, daß es zusätzlich BASIC-Funk- 
tionen zur Typumwandlung gibt, die je- 
doch nur in Sonderfällen benötigt werden. 
So wird in der Anweisung PRINT CINT 
(WERT#) der in den Typ Integer umge- 
wandelte Inhalt von WERT# ausgedruckt. 
Die Umwandlungsfunktionen sind eben- 
falls in der Referenztabelle Abschnitt A 
aufgelistet. 
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5. Konstanten — auch hexadezimal 


Neben der „gewöhnlichen“ Schreibweise 
(A = 7936) erlaubt MBASIC auch die Dar- 
stellung von Integerzahlen in hexadezima- 
ler (A = &HIFO00) oder in der weniger 
gebräuchlichen oktalen Form (A = 
&017400 bzw. A = &17400). Nach einer 
Verarbeitung im Rechner werden diese je- 
doch in Dezimaldarstellung überführt, so 
daß „PRINT &HIFO0O + &HO100“ nicht 
etwa „&H2000° sondern „8192“ ergibt. 


Wer auch eine hexadezimale Ausgabe 
wünscht, muß das dezimale Ergebnis mit 
der HEX$-Funktion erneut umwandeln: 
„PRINT HEX$ (8192)“ ergibt dann 
„2000“. 


6. Variablennamen 


Im Gegensatz zum Applesoft erlaubt 
MBASIC nur Variablennamen mit einer 
Länge von vierzig Zeichen. Davon werden 
aber alle zur Unterscheidung benutzt; 
RECHNUNG.DATUM und RECH- 
NUNG.SUMME sind zwei unterschiedli- 
che Variablen. Für den Namen selbst gibt 
es zwei Einschränkungen: Er darf nicht mit 
„FN“ beginnen oder gleich einem reser- 
vierten Befehlswort sein. So ist also 
„PRINT = 10° nicht erlaubt. Jedoch wäre 
„PRINTER = 10“ zulässig, womit ein ekla- 
tanter Unterschied zum Applesoft aufge- 
deckt ist, der manchem „Umsteiger“ an- 
fangs Kummer bereitet: „FORA=1TO10" 
arbeitet im „normalen“ BASIC einwand- 
frei, MBASIC jedoch glaubt, eine Variable 
namens FORA entdeckt zu haben. Es muß 
also fein säuberlich „FOR A = 1 TO 10“ 
geschrieben werden. 


Generell gilt im MBASIC, daß Befehlswor- 
te bis auf wenige Ausnahmen (z.B. CO- 
LOR=) von Leerzeichen eingeschlossen 
werden müssen (GOTO 100 statt GO- 
TO100). Auch ist darauf zu achten, daß 
Zweiwortbefehle wie LINE INPUT getrennt 
bleiben, da sie sonst nicht erkannt werden. 


In diesem Zusammenhang sei erwähnt, 
daß bei Feldelementen der Index unmittel- 
bar am Namen stehen sollte (A (1) statt 
A(1) bereitet u.U. Schwierigkeiten). Auch 
können Funktionen z.T. nur korrekt identi- 
fiziert werden, wenn die „(“ sofort dem 
Funktionsaufruf folgt (TAB(10) ist korrekt, 
aber TAB (10) wird zum Arrayelement!). 


Letzteres Phänomen dürfte auch dem Ap- 
plesoftprogrammierer bekannt sein, was 
vielleicht nicht gerade Zufall ist, da beide 
Interpreter aus dem Hause Microsoft 
stammen! 


4 CPM 24 
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Neue Preise # 9 





TIBLE COMPUTER+ZUBEHÖR 
Mainboard XT f. re RAM+B8 Slots, Leerkarte 
Disk Controller leer (f. 4 x 360KB-Drives) 
Monochrome Graph. + par. Printer Leerkarte (Hercules comp.) 
Color RGB + Video Graphik Leerkarte 
Parallel Printer Leerkarte 
512K-RAM Leerkarte 
Multi /O Leerkarte et Se Game, Uhr gepuffert) 
384K-Multi I/O Leerkarte 
Mainboard XT- ne DS6K -aufr.) + 8SI. best. +gepr. 
OK + Boot Eprom 
Mainboard w.o jedoch 256K-vollbest. 
64KB-RAM-Chip-Aufrüstsatz(9 Yan an geprüft! 
Disk Controller gepr. (f. 4 x 360KB-Drives) 
Monochrome Graph. + par. Printer ar gepr. (Hercules comp.) 
Color RGB + Video Graphikkarte gepr. 
Parallel Printer-Karte gepr. o. Kabel (Extra Kabel = 75,—) 
512K-RAM-Karte gepr. (OKB) 18 
384K-Multi /O Karte, RS 232, par. Printer, Interf. Game/Joystick Port, 
Real Time Clock gepuff. OK + RAM-Disk/Spooler/Uhr Softw. GL} 
384K-Multi I/O w.o. vollbest. + gepr. 
Multi I/O Karte (Par.+Ser.+Uhr gepuffert) gepr. 
Profi-Funktionstastatur dt. oder ASClI+15er Block 
130W-Netzteil mit eingebautem Ventilator Kurzschlußfest 
360KB-Diskdrive Slimline ohne Gehäuse 
XT-256K-16bit Rechner (incl. Boot-Eprom) +360K-Drive + Contr. 
+F. Tastatur im IBM-look like Geh.+130W-Netzteil best+gepr. 
XT-256K w.o + Color-RGB + Video- BAcaueE -Karte 
XT- } 


IBM- .PC-Systemeinheit + Laufwerk 
IBM deutsche DIN-Tastatur — 
IBM-Bildschirm Color 1698,-- 
PC 10-Commodore dt. Tast 4475,-- 
GENIE 16 C (256K-RAM bis 640K auf M-board) 2 x 360K-Drive, 

ser. + par. Printer - Int, + Farbgraphik-16 Color-Karte + 

2 en zT - a 4895,-— 








[e] 
APPLE-BUS COMPUTERPLATINEN+PERIPHERIE 


Motherboard durchkontaktet mit Lötstoplack 66,--. 
M-board Il 48K, gesockelt, vollbest.+gepr. 385,-- 
M-board Il 64K+Z80 CPU, gesockelt, v.best.+gepr. 395,-- 
M-board Ile 64K vollbestückt+gepr. 698,-- 
APOLLO Il Kunststoff-Leergehäuse 95,-- 
APOLLO II Gehäuse incl. Funkt.-Tast 275,-- 


Leerplatine: 16K-RAM, Z80/CPU-, Controller DOS 3.3, 
Parallel-Druckerkarte, Ser. Int v24, 802/24Z-Karte 
PAL-Modulatorkarte, je 18,95 


Entwicklungslochraster-Leerplatine durchkontaktiert 28,50 
16K-Speicher-Karte geprüft 85,-- 
APPLE orig. 16K-Language Karte gepr 125,-- 
Z-80 CPU-Karte geprüft 77,-- 
Controller DOS 3.3-Karte geprüft 78,-- 
Auto-Controller DOS 3.2/3.3-Karte gepr 145,-- 
Erphi AFDC 2 Controller + Autopatch Softw. + Handbuch 288,-- 
Parallel-Drucker-Karte geprüft 95,-- 
8bit par. Grappler-Int.+64K-Buffer+Kabel gepr 555,-- 
Seriell-Interface-Karte V24 geprüft 99,-- 
Super-Seriell-Interface Karte gepr. 169,-- 
80-Zeichen/24-Zeilen-Karte gepruft 119,-- 
802/24Z-Karte+Softswitch-Schalter Leerplatine 45,-- 
802/24Z-Karte+Softswitch-Schalter gepruft 145,-- 
IEEE-488 Int. Karte gepr 375,-- 
PAL-Modulator/Color-Karte geprüft 99,-- 
PAL-RGB-Color Karte gepr 159,-- 
128K-Speicher-Leerkarte 39,-- 
128K-Speicher-Leerkarte+Software+ Manuel 99,-- 
128K-Speicher-Karte+Software geprüft 385,-- 
256K-Speicher-Leerk. +4 Spezial ICs+Software 195,-- 


256K-Speicher-Karte+Software geprüft 
Maus incl. Software 

EPROM-Burner (2708/16/32/64) gepruft = 
Modem Euronorm-Karte gepr. + Software + Man 495,-- 
UHF/TV-Modulator universell 27,50 





Lüfter anclıpsbar (220 V) 95,-- 
Dataphon s21d Akustikkoppler-FTZ 
F-Mod.+Gr/K 


I vollbest+gepr.+F.-T. 
APOLLO // (64K)+Disk II F+Contr. +12” I 
APOLLO //A (48K)+Gr/KH+-15er-Tastatur vollbest+gepr.+F--T. 
APOLLO //A (64K)+Disk II F+Contr.+12"-Mon 
APOLLO // ASKF (48K) vollbest. + gepr. Sep. Keyboard+Gr/Kl+ 
ET tete SATTE EICH) m, „IBM-Iook like“ Gehäuse 





Aufpreis für M-board // ERS } 
APPLE-DuoDisk, 2 x 143 KB+Controller orig 2185,-- 
APPLE-Disk // Laufwerk+Contr.+Kab. DOS 3.3+ProDOS orig. 777,-- 





APPLE-Disk // (2. Laufwerk) orig 666,-- 
Disk //+Contr.+Kabel DOS 3.3 (Siemens) im Geh 567.-- 
Disk // (2. Laufwerk, Siemens) im Geh 498,-- 
Disk //F+Contr.+Kab. DOS 3.3 (1/2 Höhe) im Geh 456,-- 
Disk //F (2. Laufwerk, 1/2 Höhe) ı. Geh 387,-- 
Erphi Duo-Disk 1,2 MByte incl. Netzteil+Contr. 1999,-- 


Maus f. Apple // incl. Manual+Software 188.-- 


APPLESOFT+Turorial+-Reference Manual engl. 
APPLE-DOS 3.3 Manual engl. 

APPLE-DOS 3.3 Hb.dt, 

APPLE ProDOSHB + Disk .orig. 

APPLE-Pascal Reference+Operating Manual engl. 
APPLE-Pascal USCD 1.1. Disks+Manuals orig. 
APPLE-Pascal Reference Hb. dt. 








CP/M-Software Vol. I+Il, Manual engl. 

APPLE //.Pascal-Handbuch deutsch (te-wi) 

APPLE //-Anwenderhandbuch deutsch (te-wi) 

6502-Programmier-Handbuch deutsch 

6502-Anwendungen Handbuch deutsch (Rod.Zaks) 

Software+ Manual f. APPLE+compatible Geräte 

apple how to, apple soft tool kit, cp/m basic compiler, cbasic, 

dbase // ver. 2.4, wordstar+mailmerge+ spellstar mit installprogramm, 

apple logo, datastar, calcstar, pfs file, pfs grapg, pfs re+port, apple 

fortran, cp/m c language, spitfire simulator, c-programming language, 

flight simulator, visicalc, visischedule, visitrend, multiplan, supersort, 

microsoft eobol, 80, ee nn 80, a utility 
. 











APOLLO //e EN Fr 

APPLE //e 128K+802/24Z-Karte 

APPLE //e (64K)+Disk II F+Contr+12” Auonllor 
ET Lat 





4Z+Softswitch+64K: R 
APPLE //c (128K) dt. Tastatur 2495.-- 
Z80 Karte gepr. f. APPLE //c+RAM-Disk-Software Hb 489,-- 
Macintosh System (128K) 6745,-- 
Macintosh System (512K) 7545,-- 
Man Umrüstung von 128K auf 512K 998,-— 

s . 8 












ut, r 
EPSON 6x 80+, *NEU*NEU*NEU* 949,-- 


EPSON RX 80+, 8bit/parallel 864,-- 
EPSON RX 80F/T+, 8bit/parallel 1014,-- 
EPSON RX 100+, 8bit/parallel 1289,-- 
EPSON FX 80F/T+, 8bit/parallel 1314,-- 
EPSON FX 100+, 8bit/parallel 1724,-- 
EPSON LQ 1500+, 8bit/parallel 3295,-- 


EPSON Traktoraufsatz für FX 80 129,50 
APPLE/EPSON-Drucker Graphic-Interface+Kabel 
MX 80/82, FX/RX 80 Spezialfarbband-Kassette 








Eu ET TITETtAnGHET 8bit/par. 


h par. 
Zenith ZVM 123 gr. 12" oder Zenith ZVM 122 or. 12" 15 MHz 


SANYO DM 2212 12" orange 15 MHz 295,-- 
SANYO 9112 Monochromer Monitor 12”, gr. 587,50 
Monochromer 12”-Monitor entspiegelt gr. o. or. 22 MHz 389,— 


Disketten in Box+ Aufkleber I. Wahi bei 10 St /100 St je 

EVA Tu: 7002 e7y 
MAGNE- 
ui 


1X, SS/SD KR R hit) 3,56/3,26 
1D,SS/DD 4,39/ 4,19 4,88/ 4,58 4,57/ 4,37 3,96/3,76 2,75/2,65 
2D,DS/DD 5,99/ 5,79 6,38/ 5,88 5,87/ 5,67 4,76/4,46 3,85/3,65 
1D/96TPi 5,79/ 5,59 .7,18/ 6,68 
2D/96TPi LA Ne RA Ar 

13,89/12,89 14,87/13,87 
1X, Hard 4,49/ 4,39 


4,49/ 4,39 6,68/ 6,48 6,97/ 6,67 
4,79/ 4,59 8,58/ 8,28 

7,09/ 6,89 9,88/ es 10,17/ 9,77 
4,49/ 4,39 6,68/ 


10,99/ 22 10,08/ 9,88 
14,99/14 
3M- Scotch 5yar Flüssig- ee (2 Disk.) einseitig 





48,95 









BASF 5” Reinigungsdiskette einseitig 48,50 
5'/" Disketten-Archivbox für 10 Disks (1 St./10 St.) 5,75/54,95 
5.4" Disketten-Archivbox für 15 Disks 3M 19,95 
5'«" Disk-Karteikasten Kunststoff (ca. 80 Disk) 26,50 
5'«" Disk-Karteikasten Kunststoff (ca. 80 Disk) Rauchglas 39,95 
5V4" Disk-K.K. Rauchglas, abschließb. (f. ca. 80-100 Disks) 47,50 
2000 Bl. Tabpapier (24 cm x 12” einf.) weiß oder grun/weiß perf 45,-- 
4000 Et.-Aufkl. doppelr. (107 x 36 mm auf 240 x 12" perf. Trägerp.) 66,50 
16000 Etiketten-Aufkleber w.o 49,-- 






4000 Etik.-Aufkl. einreih. (107 x 36 mm auf 125 x 12” perf. Träg.) 






OSZILLOSCOPE HAMEG ab Lager 
Bei Vorauszahlung frei Empfangsstation unversichert in der BRD, ausgenom- 
men Papier und Etiketten, sonst N.N.+V.S. ab DM 30,-- Preise incl. Mwst. 


Öffnungszeiten: Mo, Di, Do, Frv: 10-18 h, Miu. Sa v. 10-14 h, la. Sav. 10-18 h. 
Telef. Best: Mo, Di, Do, Fr von 10-19 Uhr, Mi u. Sa wie Öffnungszeiten. 


GEWÄHRLEISTUNG: 6 Monate, auf alle bei uns gekauften Geräte, durch 
unsere eigene Service-Werkstatt 

REPARATUREN an Apple + Compatible Geräten + Zubehör führt unser 
Speziallistenteam garantiert zuverlässig + besonders Kostengünstig aus. 
LEICHE H 


electronic u 


Telex: 0772642 aaa-d 

Habsburgerstraße 134 

7800 FREIBURG, Tel. (07 61) 276864 
Bauelemente - Bausätze - uP's 

Meßgeräte - Zubehör - Fachliteratur 

Fachgeschäft für Elektronik + Mikrocomputer 
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7. Arrays 


Die Dimensionierung von Feldern mit dem 
DIM-Befehl geschieht genauso wie Im Ap- 
plesoft. Neu ist jedoch dieser Befehl: 
ERASE FELD1, FELD2....: Die Arrays mit 
den angegebenen Namen werden ge- 
löscht und können neu dimensioniert wer- 
den, ohne daß man einen „Duplicate De- 
finition“-Fehler erhält. 


8. Befehle zur Programm- 
ablaufsteuerung 


Wie im Applesoft stehen unter MBASIC 
die Befehle GOTO, GOSUB, ON... GOTO, 
ON...GOSUB, RETURN und POP (letzte- 
rer ist nur in der Appleversion des MBA- 
SIC implementiert!) zur Verfügung. Bei al- 
len diesen Anweisungen Ist jedoch auf das 
notwendige Einfügen von Leerzeichen 
(s.o.) zu achten. 


IF...THEN mit Alternative 


Neben dem üblichen IF-Befehl gibt es ei- 
ne weitere Form: 

IF /ogischer Ausdruck THEN BefehislisteT 
ELSE Befehisiiste2: |st der logische Aus- 
druck wahr, wird die Befehisliste 1 ausge- 
führt. Im anderen Fall verzweigt das Pro- 
gramm zur Befehlsliste2. Jede dieser Li- 
sten darf mehrere Befehle — wie im Ap- 
plesoft durch „:“ getrennt - enthalten; die 
gesamte IF-THEN-ELSE-Sequenz muß 
aber innerhalb einer Zeile stehen. Bei- 
spiel: 

20 IE X = I TEEN 209 EESE PRINT 
"ERHORN GOTOS 

Erwähnt sei in diesem Zusammenhang, 
daß logisch „wahr“ im MBASIC dem Wert 
-1 entspricht (Applesoft: +1): PRINT3 = 3 
ergibt -1! 


Schleifen mit WHILE...WEND 


Für Programmschleifen existiert im MBA- 
SIC neben der „klassischen“ „FOR- 
NEXT"-Möglichkeit die WHILE-WEND- 
Anweisung, die vorzugsweise dann ange- 
wandt wird, wenn die Zahl der Durchläufe 
vor Schleifenbeginn nicht feststeht: 
WHILE logischer Ausdruck /Programm- 
zeilen/ WEND: Nach Prüfung des logi- 
schen Ausdrucks wird zur nächsten Pro- 
grammzeile nach dem WEND-Befehl ver- 
zweigt, wenn dieser nicht wahr ist. An- 
dernfalls werden die von „WHILE“ und 
„WEND“ eingeschlossenen Anweisungen 
ausgeführt. Danach wird erneut der logi- 
sche Ausdruck ausgewertet usw. 


10 REM Beispiel 2 / WHILE/WEND 
ZOBRINDSWENER 2 NZ ES= 


50 


SOWEIEEIES <> SIT ANDIES < EN 
40 GET E$ 
50 WEND 


Zu FOR..NEXT ist noch ein wichtiger 
Nachtrag zu machen: MBASIC prüft vor 
dem Schleifendurchlauf die Zählvariable, 
d.h. eine Anweisung des Typs „FORL=3 
TO 1“ wird nicht ausgeführt. Im Applesoft 
dagegen erfolgt immer mindestens ein 
Durchlauf. 


9. Anweisungen zur Fehler- 
behandlung 


Vom Applesoft her bekannte Anweisun- 
gen sind im MBASIC z.T. in erweiterter 
Form vorhanden: 

ON ERROR GOTO n: Beim Auftreten ei- 
nes Fehlers wird in eine Fehlerbehand- 
lungsroutine in Zeile n verzweigt. ON ER- 
ROR GOTO 0 entspricht dem Applesoft- 
POKE 216,0: Die normale Fehlerbehand- 
lung (Ausgabe von Fehlermeldungen) wird 
wieder aktiviert. 

Eine Fehlerbehandlungsroutine muß mit 
einer RESUME-Anweisung enden: 
RESUME bzw. RESUME 0: Die Pro- 
grammausführung wird in der Zeile wieder 
aufgenommen, in der der Fehler auftrat. 
Anm.: Die applesofttypischen Schwierig- 
keiten in Verbindung mit diesem Befehl, 
z.B. mit FOR-NEXT-Schleifen, gibt es im 
MBASIC nach eigener Erfahrung nicht. 
RESUME NEXT: Wie RESUME, nur wird 
hier die nachfolgende Zeile ange- 
sprungen. 


RESUME n: Das Programm wird mit der 
Zeile n fortgesetzt. 

X = ERR: Der Variablen X wird die Num- 
mer des aufgetretenen Fehlers zugewie- 
sen (Applesoft: X = PEEK (222)). MBASIC 
kennt ungefähr vierzig verschiedene Feh- 
ler, auf die hier aus Platzgründen nicht 
näher eingegangen werden kann. 

X = ERL: Die Variable ERL enthält die 
Nummer der Zeile, in der der letzte Fehler 
auftrat. Das Applesoft-Äquivalent ist X = 
PEEK (218) + PEEK (219) & 256. Ein Tip: 
Um bei einer Neunumerierung des Pro- 
grammes mit der RENUM-Anweisung 
nicht alle ERL-Abfragen von Hand ändern 
zu müssen, sollte stets die Form „IF ERL 
= Zeile THEN“ benutzt werden, da derar- 
tige Ausdrücke von der RENUM-Funktion 
korrigiert werden, nicht aber z.B. „IF 100 
= ERL THEN“. 

ERROR n: Ein Fehler mit der Fehlernum- 
mer n wird künstlich erzeugt. Dies dient im 
wesentlichen zum Testen von Fehlerrouti- 
nen. Hinweis: n muß keine legale Fehler- 
nummer des Interpreters sein, d.h. der 


Programmierer kann neue Fehler mit eige- 
nen Nummern {empfohlener Bereich: 80 
<n< 255) einführen. 


10. Funktionen im MBASIC- 
Sprachumfang 


Arithmetische Ausdrücke 


MBASIC kennt neben den üblichen 
Rechenarten die Integerdivision (5 \ 2 = 
2, dabei wird „\“ durch <Ctrl-B> er- 
zeugt, auf deutschen Tastaturen entspricht 
„\“ dem „Ö“) und die MODULO-Opera- 
tion. Hierbei wird der ganzzahlige Rest 
einer Division ausgegeben: 9MOD4 = 1. 
Wichtig: Beide Funktionen wandeln die Ar- 
gumente vor der Berechnung In Integer- 
werte um, d.h. 12.4 MOD 3.9 wird zu 12 
MOD3=0! 


Mathematische Funktionen 


Alle unter Applesoft vorhandenen Funktio- 
nen — inklusive der DEF FN-Anweisung 
zur Selbstdefinition durch den Program- 
mierer — sind implementiert. Neu hinzu 
kommt: 

Y = FIX(X): Die Nachkommastellen von X 
werden abgeschnitten (Beispiel: FIX(1.9) 
—ı. 

Die RND-Funktion zur Erzeugung von Zu- 
fallszahlen ist ebenfalls vorhanden: 

Y = RND(X): Ist X > 0, so wird eine neue 
Zufallszahl erzeugt, bei X = O wird die 
letzte Ausgabe wiederholt. Der große Un- 
terschied zum Applesoft liegt darin, daß 
bei jedem Neustart des Programmes die- 
selben Zahlen ermittelt werden, wenn der 
Zufallszahlengenerator nicht mit einem 
speziellen Befehl „eingeschaltet“ wird: 
RANDOMIZE INTEGER%: In Abhängig- 
keit des Inhaltes von INTEGER% wird der 
Startwert der Zufallszahlenreihe erzeugt. 
Wird keine Variable angegeben - also nur 
z.B. „IO RANDOMIZE“ geschrieben - hält 
das Programm mit der Meldung „Random 
Number Seed (-32768 to 32767)?” an und 
erwartet die Eingabe einer entsprechen- 
den Zanl. 


Funktionen zur Zeichenkettenverarbei- 
tung 


Zusätzlich zu RIGHT$, LEFT$, MID$, LEN, 
VAL, STR$, ASC und CHR$ sind vor- 
handen: 

X = INSTR (START, ORIGINAL$, VER- 
GLEICH$): Es wird — beginnend bei der 
Position START — ermittelt, ob der VER- 
GLEICH$ in ORIGINAL$ vorhanden ist. 
Bei positivem Ergebnis wird X die Posi- 
tionsnummer des ersten übereinstimmen- 
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den Buchstabens zugewiesen, Ändern- 
falls erhält X den Wert Null. Der START- 
Parameter braucht nicht angegeben zu 
werden. Beispiel: INSTR{"TEST","ES") 
= 2; INSTR(4,"APPLE","P") = 0. 

x$ = SPACES$(n): Es werden n Leerzei- 
chen erzeugt und der Variablen X$ zuge- 
wiesen. 

x$ = STRING$(n,QUELLE$): Das erste 
Zeichen von QUELLE$ wird n-mal in X$ 
abgespeichert. Beispiel: 
STRING$(3,*123*) ergibt „11T“. 

Neben der MID$-Funktion gibt es in MBA- 
SIC auch einen MID$-Befehl, der das 
Austauschen von Zeichen in einer beste- 
henden Zeichenkette erlaubt: 
MID$(ZIEL$,o,n) = INSERT$: Der Inhalt 
von INSERT$ wird ab der Position p in 
ZIEL$ kopiert. Dabei werden höchstens 
n Zeichen ausgetauscht. Beispiel: 
x$="ABCD“: MID$(X$,2,2) = "012" er- 
gibt in X$ die Zeichenkette „AO1D“., 


Logische Funktionen auf Bitebene 


Integerzahlen können über Funktionen 
wie AND, OR, XOR usw. verknüpft wer- 
den. Im Rahmen dieses Artikels soll darauf 
aber nicht näher eingegangen werden. 


11. „Schnittstellen“ für 
Assemblerprogrammierer 


MBASIC enthält neben PEEK und POKE 
einen CALL-Befehl, der sowohl den Aufruf 
von Z80- als auch von 6502-Assem- 
blerroutinen ermöglicht, die USR- und die 
VARPTR-Funktion. Mit letzterer kann die 
Speicheradresse einer Variablen ermittelt 
werden. Genauere Angaben zu diesem 
Thema entnehmen Sie bitte der entspre- 
chenden Fachliteratur, z.B. Literatur (1). 


12. Befehle zur Ein- und Ausgabe 
Einlesen von der Tastatur 


Hier wird der Applesoftprogrammierer 
nicht nur mit neuen Befehlen, sondern 
auch mit einer geänderten Syntax der IN- 
PUT-Anweisung konfrontiert: 

INPUT “Zahl: “;N: Im Gegensatz zum 
Applesoft erscheint hier die Meldung 
„Zahl: ?“ auf dem Bildschirm. Will man 
das Fragezeichen unterdrücken, muß hin- 
ter dem auszugebenden Text ein Komma 
stehen: INPUT “Zahl: *,N! 

INPUT;“ Zahl: “;N: Das zusätzlich einge- 
fügte Semikolon gleich hinter der INPUT- 
Anweisung bewirkt, daß der Cursor nach 
erfolgter Eingabe in derselben Zeile bleibt. 


LINE INPUT “Text: ‘“;TEXTE$: Dieser 
Befehl ist zum Einlesen ganzer Textzeilen 
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gedacht. Dabei wird die gesamte Eingabe 
bis zum <Return> als eine einzige Zei- 
chenkette aufgefaßt und der Variablen 
TEXTE$ zugewiesen. Dies bedeutet ins- 
besondere, daß sowohl Kommata als auch 
Anführungszeichen eingegeben werden 
können, was bekanntlich bei der INPUT- 
Anweisung nicht — oder nur mit Tricks — 
möglich ist. Auch werden führende Leer- 
zeichen nicht unterdrückt. 

X$ = INPUT$(n): Diese Funktion liest von 
der Tastatur einen String der Länge n, 
ohne ihn auf dem Bildschirm darzustellen. 
Die Eingabe kann auch durch <Returm> 
nicht vorzeitig beendet werden. Vorzüglich 
geeignet zum Abfragen von Kennworten: 
AS = INPUT$(6): IF A$ = "PEEKER" 
TRIER 

GET E$: Dieser Befehl funktioniert wie im 
Applesoft, ist aber in etlichen MBASIC- 
Interpretern für andere Computer nicht im- 
plemenitiert. 

X$ = INKEY$: Wie bei der GET-Anwei- 
sung erfolgt eine Tastaturabfrage. Dabei 
wartet die Funktion jedoch nicht auf eine 
Eingabe des Benutzers, sondern gibt, 
wenn keine Taste gedrückt wird, einen 
Leerstring aus (““). 


Ausgabe - auch formatiert 


Wer in Applesoft schon einmal versucht 
hat, eine Zahlentabelle ordentlich auszu- 
gegeben, weiß, daß dies - wenn man nicht 
einen entsprechenden Patch „im Hause“ 
hat — viel Arbeit verursachen kann. MBA- 
SIC schafft da Abhilfe, indem es neben 
den üblichen Befehlen zur Ausgabe 
(PRINT, SPC- und TAB-Funktion sowie 
POS(0) zur Ermittlung der aktuellen Aus- 
gabespalte) die PRINT USING-Anweisung 
zur Verfügung stellt: 

PRINT USING Formatstring; Variablenii- 
ste: Eine Variablenliste wird entsprechend 
dem Formatstring ausgegeben. 

Wie sieht nun ein solcher Formatstring 
aus? Nehmen wir ein Beispiel zu Hilfe: Sie 
haben ein Programm, das Rechnungen in 
folgender Form schreiben soll: 


5.00 kg Mehl 1.50 DM 7.50 DM 
14.001 Milch 0.99 DM 13.86 DM 


Die erforderlichen Daten seien in den Va- 
riablen MENGE, EINHEIT$, ARTIKEL$ und 
EINZELPREIS abgespeichert. Der dafür 
erforderliche Befehl würde lauten: 


10 PRINT USING "##.##O\\ON 
OOOO\ D#.##ODMO#+#+##ODM‘; 
MENGE; EINHEIT$; ARTIKEL$; EINZEL- 
PREIS; EINZELPREIS «x MENGE. (D = 
Space) 
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MBASIC druckt dabei den Formatstring 
aus, ersetzt aber vorher gewisse Platzhal- 
terzeichen durch Variablen aus der Varia- 
blenliste. So steht die erste Platzhalter- 
gruppe (##.4#=#) für eine Zahlenvariable, 
die mit zwei Vor- und zwei Nachkomma- 
stellen ausgegegeben werden soll. Der 
Interpreter setzt hier den Inhalt der ersten 
Variablen der Liste -— MENGE - ein. Alle 
durch „\“ begrenzten Positionen werden 


— „\“ miteingeschlossen — zur Ausgabe 


von Zeichenketten reserviert. So steht al- 
So „\\“ für zwei Buchstaben. In unse- 
rem Beispiel wird dort EINHEIT$ ausgege- 
ben. Ist eine Zeichenkette kleiner, als im 
Formatstring vorgesehen, so wird mit 
Leerzeichen aufgefüllt. Auf diese Art und 
Weise wird der gesamte Formatstring ab- 
gearbeitet. Der Abschnitt L der Referenz- 
tabelle gibt einen Überblick über die ge- 
bräuchlichsten Platzhalterzeichen und ihre 
Funktion. 

Ein Hinweis: Achten Sie bei der Verwen- 
dung von PRINT USING darauf, daß An- 
zahl und Art der reservierten Felder mit 
Anzahl und Typ der Variablen der Liste 
übereinstimmen. Da die Sache insgesamt 
nicht ohne Tücken ist, sollten Sie in Ihren 
Programmen mit kurzen Ausdrücken wie 
z.B. PRINT USING "#H#H#H.4##+ DM’; 
BETRAG beginnen. 

Hier noch einige weitere, auf die Ausgabe 
bezogene Befehle: 

WIDTH n: Diese Anweisung setzt die ma- 
ximale Anzahl von Spalten auf dem Bild- 
schirm fest (ähnlich dem Applesoft POKE 
33m) 

HOME: Es erfolgt eine Bildschirmlö- 
schung; dieser Befehl arbeitet auch bei 
Verwendung von 80-Zeichenkarten kor- 
rekt. 


Ausgabe auf dem Drucker 


Im Gegensatz zum Applesoft, bei dem die 
Ausgabe mit „PR#1" auf den Drucker 
„umgeleitet“ wird, stellt MBASIC für die- 
sen Zweck eigene Befehle bereit, die sich 
von den schon bekannten nur durch ein 
vorangestelltes les unterscheiden: 
LPRINT und LPRINT USING. Schließlich 
wird mit „WIDTH LPRINT n" die Ausgabe- 
breite auf dem Drucker gesetzt; die 
LPOS(O)-Funktion gibt die aktuelle Posi- 
tion des Druckkopfes (Spalte) aus. 


13. System- und Editier- 
kommandos 


Neben den gewohnten Befehlen — NEW, 
RUN, LIST sowie DEL, TRACE und NO- 
TRACE (letztere heißen in den MBASIC- 
Versionen anderer Rechner meistens DE- 
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LETE, TRON und TROFF) - gibt es auch 
hier einiges Neues: 

LLIST: Diese Anweisung funktioniert wie 
LIST, nur erfolgt die Ausgabe auf dem 
Drucker. 

RENUM Neu, Alt, n: Die Zeilennummern 
eines Programmes werden ab Zeile Alt 
geändert. Diese erhält die Zeilennummer 
Neu; alle weiteren Zeilen folgen im Ab- 
stand n. Einzelne Parameter können weg- 
gelassen werden, z.B. bedeutet RENUM 
„20: Alle Programmzeilen werden — be- 
ginnend mit Zeilennummer 10 — mit dem 
Abstand 20 neu numeriert. 

AUTO Siart, n: Dieser Befehl — übrigens 
auch im Integer-BÄSIC des Apple enthal- 
ten — bewirkt die automatische Ausgabe 
von Zeilennummern im Abstand n. Erste 
Zeile ist Start. Auch hier können die Para- 
meter „unterschlagen“ werden; AUTO al- 
leine bewirkt dasselbe wie AUTO 10,10. 
Abgeschaltet wird dieses Programmier- 
hilfsmittel mit Eingabe von <Otrl-C>. 


CLEAR ‚Himem,Stack: Während CLEAR 
alleine wie im Applesoft alle Variablen 
löscht, können über zusätzliche Parameter 
die höchste von BASIC benutzbare Spei- 
cheradresse (Himem) und die Stacklänge 
geändert werden. Letztere beträgt norma- 
lerweise 256 Bytes und sollte nur vergrö- 
Bert werden, wenn zu viele GOSUB-Be- 
fehle im Programm einen „Out of Memo- 
ry“-Fehler verursachen. 

PRINT FRE(0): Es wird der freie Spei- 
cherplatz (in Bytes) angezeigt; im Gegen- 
satz zum Applesoft jedoch erfolgt eine 
Garbage-Collection nur bei einem Aufruf 
der Form X = FRE({"")! 

RESTORE / RESTORE Zeile: Neben ei- 
nem globalen 'RESTORE kann in einer 
zweiten Form (z.B. RESTORE 100) der 
interne DATA-Zeiger auf das erste DATA- 
Element der genannten Zeile gesetzt wer- 
den — eine Möglichkeit, die im Applesoft 
auch durch nachträgliche Patchroutinen 
realisiert werden muß. 

EDIT n: Diese Anweisung bringt die Zeile 
rn in den Editiermodus. Weitere Aufruffor- 
men des eingebauten Editors sind: 


EDIT .: Die zuletzt eingegebene oder geli- 
stete Zeile wird editiert. 

<Ctrl-A>: Die gerade eingegebene, aber 
noch nicht mit <Return> abgeschlossene 
Programmzeile oder die letzte Direktan- 
weisung wird in den Editor übernommen. 
Der damit aufgerufene Editor ist zeilen- 
orientiert, d.h. nur innerhalb der angespro- 
chenen Zeile können Änderungen vorge- 
nommen werden. Die bekannten ESC-Se- 
auenzen werden nicht akzeptiert. 

Der MBASIC-Editor gibt zuerst die Zeilen- 
nummer (die nicht geändert werden kann!) 
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der zu bearbeitenden Zeile aus und po- 
stiert seinen Cursor vor dem ersten Be- 
fehl. Dieser kann jetzt durch <Space> 
nach rechts und „<-“ nach links bewegt 
werden. Dabei wird der Inhalt der Pro- 
grammzeile erst sichtbar, wenn er vom 
Cursor überfahren wurde. Durch Eingabe 
von „L” kann jedoch die Ausgabe des 
gesamten Zeileninhalts bewirkt werden. 
Eine Übersicht über die wichtigsten Edi- 
tierkommandos gibt Abschnitt G der Refe- 
renztabelle. Ansonsten gilt für diesen Edi- 
tor, der übrigens bei einem „Syntax-Er- 
ror© beim Programmablauf automatisch 
aktiviert wird, ein altbekanntes Sprichwort: 
„Nur Übung macht den Meister“. 


14. Befehle zur Dateienbehandlung 


In MBASIC ist das DOS quasi als gleich- 
berechtigter Partner von Anfang an inte- 
griert worden, d.h. alle Anweisungen zur 
Dateienbehandlung sind genauso Befehle 
wie PRINT, INPUT usw.: 

100 REM Beipiel 3 

110 RUN "TEIL2.BAS“ 

Das vom Applesoft bekannte PRINT 
CHR$(4);"RUN TEIL2.BAS" bewirkt da- 
gegen nichts weiter als eine Bildschirm- 
ausgabe. Also: In MBASIC-Programmen 
werden „DOS"-Anweisungen genauso 
behandelt wie alle anderen Befehle! Dies 
mag am Änfang verwirrend sein, ist aber 
prinzipiell viel klarer und auch einfacher als 
im Applesoft. 

Im Rahmen dieses Artikels soll dabei nur 
auf jene Anweisungen eingegangen wer- 
den, die sich auf Programmdateien bezie- 
hen (RUN usw.) oder darauf angewandt 
werden können (KILL u.ä.). Die Möglich- 
keiten des MBASIC zur Verwaltung se- 
quentieller und Random-Access-Dateien 
werden aus Platzgründen erst in einer der 
nächsten Peeker-Ausgaben vorgestellt. 


Dateinamen 


Die im Vergleich zum Applesoft andere 
Behandlung von Dateibefehlen hat einen 
syntaktischen Unterschied zur Folge, der 
leicht übersehen wird und dann Verdruß 
bringt: Alle Dateinamen in BASIC-Befeh- 
len sind entweder Sitringkonstanten (z.B. 
RUN TEST") oder Stringvariablen 
(A$="TEST“: RUN A$). Dagegen erzeugt 
die „gewohnte“ Eingabe „RUN TEST” nur 
einen „Type mismatch“-Fehler, da in die- 
sem Fall TEST für MBASIC eine numeri- 
sche Variable ist! 

Die unter MBASIC verwendbaren Dateina- 
men müssen sich an die CP/M-Konventio- 
nen halten. Dabei gilt: Ein Dateiname be- 


steht aus zwei Teilen, dem eigentlichen 
Namen, der bis zu acht Zeichen lang ist, 
und einer Typangabe aus drei Buchsta- 
ben. Beide werden durch einen „.“ ge- 
trennt (Beispiel: TEST.BAS, BUECHER- 
.DAT). Die Typangabe soll dabei stets 
Auskunft über den Datentyp geben. So 
steht z.B. „BAS“ für ein BASIC-Pro- 
gramm, „IXT" füreinen Text usw. 


Wichtig ist noch zu wissen, daß dem 
Dateinamen ein Laufwerkskenner (ein 
Buchstabe, gefolgt von einem „:”, z.B. 
„A:") vorangestellt werden muß, wenn 
man auf eine Disk zugreifen will, die sich 
nicht in dem Laufwerk befindet, das bei 
dem Start des MBASIC das CP/M-Be- 
zugslaufwerk war (meistens A:). CP/M 
ordnet folgendermaßen zu: 

A: Slot 6, Drive 1; B: Slot 6, Drive 2 

So wird also mit RUN "B:TEST.BAS" das 
Programm „TEST.BAS” in Slot 6, Drive 2 
angesprochen. 


Befehle ausschließlich für Programm- 
dateien 


Die folgenden Anweisungen sind aus- 
schließlich zum Arbeiten mit BASIC-Pro- 
grammen gedacht. Deswegen ist bei die- 
sen Befehlen das Weglassen der Datei- 
typangabe möglich. In einem solchen Fall 
erhält ein File automatisch den Typ 
„.BAS“. Beispiel: RUN "TEST" ist gleich- 
bedeutend mit RUN “TEST.BAS“. 


LOAD “NAME“ / RUN “NAME“: Das 
Programm „NAME.BAS” wird geladen 
bzw. geladen und gestartet. 

SAVE “NAME“: Es erfolgt eine Abspei- 
cherung des Programmes im Speicher un- 
ter dem Filenamen „NAME.BAS”. Dazu 
wird — wie auch beim Applesoft — eine 
spezielle Codierung benutzt, so daß derar- 
tige Dateien i.d.R. nicht mit einem Textedi- 
tor (z.B Wordstar) bearbeitet werden kön- 
nen. 

SAVE “NAME“, A: Im Gegensatz zum 
ersten Beispiel wird jetzt das Programm im 
ASCII-Format abgespeichert. Es kann 
dann auch editiert werden. Weiterhin wird 
diese Form zur Übertragung per Telefon- 
modem o.ä. empfohlen, insbesondere 
dann, wenn das Zielgerät kein Apple ist, 
weil sonst Kompatibilitätsprobleme auftre- 
ten können. (Für Interessierte: Bei den 
verschiedenen Interpreterversionen des 
MBASIC sind gleichen „Tokens“ z.T. un- 
terschiediche Befehle zugeordnet.) 
Schließlich akzeptiert auch der Microsoft- 
BASIC-Compiler nur ASCII-Dateien. 


SAVE “NAME“, P: Diese Option bewirkt 
eine verschlüsselte Abspeicherung. Das 
Programm kann später nur noch geladen 
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und gestartet, aber weder gelistet noch 
geändert werden. 

MERGE NAME“: Dieser Befehl, der nur 
auf Files im ASCIl-Format (s.o.) angewen- 
det werden darf, lädt das Programm „NA- 
ME“ über das im Speicher befindliche. 
Das Prinzip läßt sich mit dem eines 
„EXEC“-Files unter DOS 3.3 vergleichen; 
MERGE-Dateien können jedoch nur Pro- 
grammzeilen enthalten. Direkt-Anweisun- 
gen sind unzulässig und führen zu einer 
Fehlermeldung. 

CHAIN “NAME“: Im Zusammenhang mit 
der COMMON-Anweisung können Varia- 
blen an das aufgerufene Programm „NA- 
ME“ übergeben werden. 


10 REM Beispiel 3 

20 COMMON A,B() 

30A=1:B(2) =9 

40 CHAIN "TEIL2" 

In obigem Beispiel könnte das Programm 
„lElIL2“ sofort auf die Variablen A und 
B(2) zugreifen. Der CHAIN-Befehl erlaubt 
auch das Nachladen einzelner Routinen- 
blöcke. Seine volle Syntax ist CHAIN 
/MERGE/FILENAME$/,  STARTZEILE/, 
ALL/, DELETE VON - BIS; die Anweisung 
„CHAIN MERGE “TEIL2.BAS”, 1000, 
ALL, DELETE 100-400" beispielsweise 
bewirkt nach der Löschung der Pro- 
grammzeilen 100-400 das „Dazuladen” 
des Programmes „TEIL2.BAS" (s.a. MER- 
GE); die Programmausführung wird in Zei- 
le 1000 fortgesetzt; alle Variablen stehen 
weiterhin zur Verfügung. 


Weitere Befehle zur Dateienverwaltung 


Bei diesen Anweisungen muß bei File- 
Namen der Typ mitangegeben werden. 
Fehlt er, wird nicht automatisch „.BAS“ 
hinzugefügt; KILL "DEMO" und KILL 
“DEMO .BAS“ sind also nicht equivalent! 
KILL “NAME.BAS“: Löschen der Datei 
„NAME.BAS“. 

NAME “NAME.BAS“ AS “NEUNAME 
„BAS“: Umbenennen einer Datei. 

FILES: Anzeige des Inhaltsverzeichnisses 
der Disk im Bezugslaufwerk. Dies ist, 
wenn MBASIC, wie oben angegeben, von 
der Masterdisk gestartet wurde, Drive A: . 
Die Inhalte anderer Disketten können 
ebenfalls ausgegeben werden, z.B. mit 
FILES "B:*.#" für Drive B:. 

RESET: Dieser Befehl muß immer dann 
eingegeben oder vom Programm ausge- 
führt werden, wenn eine Diskette gewech- 
seit wurde, um die neue Disk ordnungsge- 
mäß im CP/M-Betriebssystem „anzumel- 
den“. Vergeßlichkeit in diesem Punkt kann 
beim Versuch, auf eine nicht angemeldete 
Diskette zu schreiben, zum Absturz des 
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MBASIC-Interpreters und damit zum Ver- 
lust des gesamten Programmes führen! 


15. Applespezifische 
Erweiterungen 


Alle bis jetzt besprochenen Anweisungen 
gehören — wenn nicht besonders darauf 
hingewiesen wurde — zum Standard-MBA- 
SIC und sind daher auch auf vielen ande- 
ren Rechnern verfügbar. Die folgenden 
Befehle jedoch sind i.d.R. nur in der Ap- 
pleversion des MBASIC vorhanden. Bei 
einigen von ihnen — nämlich den Grafik- 
befehlen - treten bei Verwendung von 80- 
Zeichenkarten Schwierigkeiten auf, da 
CP/M grundsätzlich eine derartige Zusatz- 
Karte — falls vorhanden — zur Ausgabe 
benutzt. Damit ist es i.d.R. nicht möglich, 
Grafik und vier Zeilen Text darzustellen. 
Dagegen arbeiten z.B. VTAB, HTAB, POS 
und HOME auch bei 80 Zeichen pro Zeile 
einwandfrei, wobei das natürlich nicht un- 
bedingt für jede 80-Zeichenkarte gilt. 


15.1. Ein- und Ausgabebefehle 


Wie im Applesoft funktionieren NORMAL, 
INVERSE, HTAB und VTAB. 

Y = VPOS(0): Mit der VPOS(0)-Funktion 
kann die vertikale Cursorposition ermittelt 
werden. 

WIDTH BREITE,HOEHE: In einer zweiten 
Form der WIDTH-Anweisung (s.o.) ist es 
möglich, neben der Ausgabebreite auch 
die Bildschirmhöhe festzusetzen. 

Zur Paddleabfrage steht neben der PDL- 
Funktion auch eine Möglichkeit zur Verfü- 
gung, den Druckknopf abzufragen: 

Y = BUTTON(Paddienummer): Diese 
Funktion ergibt -1, wenn der entsprechen- 
de Knopf gedrückt wurde. Beispiel: IF 
EUTONGOI TITTEN 

BEEP HOEHE, LAENGE: Diese neue An- 
weisung dient zur Erzeugung unterschied- 
lichster Töne. HOEHE und LÄENGE sind 
dabei Integerausdrücke im Bereich von O 
bis 255. 


15.2. Kommandos zur Ansteuerung der 
niedrigauflösenden Grafik 


Die bekannten Befehle COLOR=, PLOT, 
HLIN, VLIN, GR und TEXT sowie die 
SCRN-Funktion stehen auch hier zur Ver- 
fügung. Der GR-Befehl hat eine zusätzli- 
che erweiterte Form bekommen: 

GR MODUS, FARBE: MODUS = O0 be- 
wirkt die Ausgabe von Grafik und vier Zei- 
len Text, bei MODUS = 1 wird der gesam- 
te Schirm für die Grafik verwendet. Je 
nach dem Wert von FARBE wird der Bild- 
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schirm gelöscht (FARBE = 0) oder mit der 
entsprechenden Farbe gefüllt, wobei die 
Farbzuordnung der vom Applesoft ent- 
spricht. Beispiel: GR 1,3. 


15.3. Hochauflösende Grafik 


Hires-Grafik ist nur mit dem GBASIC- 
Interpreter möglich, der sich ebenfalls auf 
der CP/M-Masterdisk befindet und von 
CP/M aus mit „GBASIC <Return>" ge- 
startet wird. Alle anderen MBASIC-Befeh- 
le sind auch im GBASIC gültig. (Anm. cd. 
Red.: Das GBASIC, das in Verbindung mit 
der Premium Card für den |le geliefert 
wird, ist MBASIC und GBASIC in einem. 
Ein Testbericht zu dieser Karte erscheint 
in Kürze.) 

Wie im Applesoft funktionieren HCO- 
LOR= und HPLOT sowie HGR. 

HGR m,c: Dieses erweiterte Kommando 
funktioniert ähnlich wie die GR-Anwei- 
sung; die Bedeutung der Parameter m und 
c wird in der Referenztabelle Abschnitt Q 
erläutert. 

Z = HSCRN(X,Y): Diese neue Funktion 
ergibt -1 (logisch wahr), falls der entspre- 
chende Punkt (X,Y) der Hires-Grafik ge- 
setzt ist. Beispiel: IF HSCRN(120,99) 
IHNEN: 

Shaperoutinen sind im GBASIC nicht vor- 
handen. 


16. Literatur für Interessierte 


Eine vollständige, alles umfassende Erläu- 
terung eines BASIC-Interpreters ist im 
Rahmen eines Zeitschriftenartikels natür- 
lich nicht möglich. Zur Vertiefung des Wis- 
sens können folgende Bücher dienen, die 
sich allerdings nur auf MBASIC allgemein 
beziehen und nicht auf die applespezifi- 
schen Erweiterungen eingehen. 

(1) Günther Daubach, MICROSOFT BA- 
SIC 80, IWT-Verlag. Ein sehr ausführliches 
Buch, das auf über 300 Seiten neben gut 
verständlichen Beispielen für den Anfän- 
ger fundierte Informationen für den Profi 
bietet. 

(2) J.J. Purdum, BASIC-80 und CP/M. 
Eine Einführung in MBASIC in Kursform 
mit vielen Aufgaben. 

(3) Thom Hogan, CP/M-Anwenderhand- 
buch, McGraw-Hill. Eine umfassende Be- 
schreibung der CP/M-Befehle und Dienst- 
programme. 
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Microsoft BASIC-80 (MBASIC) - Referenztabelle 


Diese Tabelle wurde in ihrer Gliederung der Applesoft-Referenzkarte 
angepaßt, um einen schnellen Vergleich zu ermöglichen. 


Es werden folgende Abkürzungen verwendet 


wAS : wieimApplesoft-BASIC, höchstens geringfügige Abweichungen. 
Zu beachtenistaber, daß im MBASIC Befehle meistens von 
Leerzeichen eingeschlossen werden müssen und bei 
Funktionen sich die "{" unmittelbar anschließen sollte, 
Bsp. : 199 GOTO 2089 statt : 1BdGOTO2dBA 


Befehl oder Funktion ist nur in der Appleversion des 
MBASIC verfügbar. 


A. Einfache Variablen 


Typ Beispiel DEF-Fkt. Konvertierungsfkt. 
Integer -32768/+32767 ABCH DEFINT CINT 
Real, 7 Stellen Genauigkeit ABC /ABC! DEFSNG CSNG 
Real, 17 Stellen Genauigkeit ABC# DEFDBL CDBL 
Sstrine ABC$ DEFSTR _— 


Variablennamen können bis zu 40 Zeichen besitzen, von denen alle 
signifikant sind 


Die DEF-Funktionen ordnen Variablen mit bestimmten 
Anfangsbuchstaben global einem Typ zu, 2.B.: DEFSTR A-C erklärt 
alle Variablen mit Anfangsbuchstaben A-C, die keinSuffix(!,#,%) 
tragen, zuStringvariablen. 


Die Konvertierungsfunktionen führen Typenumwandlungen durch 
(z.B. ? CINT(A#)}, die aber bei Wertzuweisungen automatisch 
erfolgen. Bsp,: AZ = C# ist gleichwertig mit AZ = CINTIC#). 


B. Konstanten 


132.359, 337E1l2 einfach genaue Realkonstanten 
doppelt genaue Realkonstanten 
hexadezimale Integerkonstanten 


oktale Integerkonstanten, Bsp.:!: A% = &03259 


&HFF3D, &HAF 
&2300, &045 


C. Algebraische Funktionen 
Alle Funktionen des Applesoft, zusätzlich 


ganzzahlige Integerdivision, Bsp.: 5\2=2 


MOD : A MOD B ergibt ganzzahligen Rest der Division, Bsp.: 1 MOD 


3 ergibt 1. 


D. Vergleichende und logische Operationen 


Operationen wie im Applesoft, zusätzlich Funktionen zur logischen 
Verknüpfung von Integerzahlen auf Bitebene: 


A AND B : logisches "UND" 

A EQV B : negiertes "Exklusiv-ODER" (logische Äquivalenz) 
A ORB !: logisches "ODER" 

AKXOR B : logisches "Exklusiv-ODER'" 

NOT{B) : logisches "NICHT" 


Vergleichsausdrücke ergeben den Wert -]l, falls sie wahr sind, 
andernfalls den Wert ®. Bsp.: ? 3=3 ergibt -1l! 


| E. Systemkommandos 


wAS : CLEAR, CONT, END, NEW, RUN, STOP, TRACE(AMB), 
NOTRACE(AMB) ,<Ctr1-C>. 


CLEAR,H.S : wie CLEAR, zusätzlich wird die Speichergrenze für 
MBASIC auf h sowie die BASIC-Stacklänge auf s 
(normal 256) gesetzt. 

?FRE(B) : Zeigt freien Speicherplatz in Bytes an. Garbage 
Collection erfolgt nur bei Aufruf in der Form 
X=FRE("") 


| <RESET> : verursacht einen RESET-ERROR, der mit ONERR 


abgefangen werden kann, 


F. Befehle zum Arbeiten auf Maschinensprachenebene 
wAS : PEEK, POKE, WAIT. 


CALL X% (Par) Ruft Z8ß-Assemblerroutine auf und übergibt 
Parameter, 
CALLZ XZ(A,X,Y) : Ruft 65®2-Unterprogramm auf und übergibt Werte 


an Akkumulator, X- und Y-Register, AMB, 


Hinweis: Die jeweilige Startadresse der 
Maschinensprachenroutine (X%) muß eine Variable 
sein. Ausdrücke wie CALL &HFEDF sind 
unzulässig. 
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USRn(X} : Aufruf der Maschinenroutine n {n = $-9). Die 
Startadresse des Unterprogrammes muß vorher mit 
einer Anweisung der Form DEF USRn = 
Startadresse [festgelegt worden sein, 

VARPTR(var) : Ergibt die Adresse einer Variablen im Speicher. 
Bsp.: A= 19 : ? VARPTR(A) 


G. Kommandos zum Editieren / Verändern von Programmen 
wAS : LIST, DEL(AMB). 


LETST ı wie LIST, aber Ausgabe auf dem Drucker. 

RENUM n,a,x : Neunumerierung aller Zeilen im Abstand x, 
beginnend bei alter Zeile a, die die neue 
Zeilennummer n erhält. Bsp.: RENUM 1%,1,5; 
RENUM ,,‚2® 
Erzeugt in jeder Eingabezeile eine 
Programmzeilennummer, beginnend bei s im Abstand 
a. Bsp.: AUTO 1069,19; AUTO ,‚2B. 
AUTO wird durch <Ctrl-C> abgeschaltet. 

EDIT n : Programmzeile n in den Editor bringen, 

EDIT , : Zuletzt gelistete oder eingegebene Zeile editieren 


Die wichtigsten Kommandos des Editors: 


<SPACE> : Cursor nach rechts, überfahrene Zeichen werden 
sichtbar 
Cursor nach links 
Text ab Cursor einfügen. Der Insert-Modus wird durch 
<ESC> oder <RETURN> beendet. 
Zum Erweitern einer Zeile: Der Cursor springt zum 
Ende der Zeile, der Insert-Modus wird aufgerufen 
(s.0.). 
n Zeichen rechts vom Cursor werden gelöscht. Die 
Löschung wird durch Ausdruck der entsprechenden 
Zeichen in eckigen Klammern dargestellt! 

H : Rest der Zeile ab Cursor löschen, Insert-Modus wird 
danach automatisch eingeschaltet, 

nt ı Die nächsten n Zeichen werden ausgetauscht. 

<RETURN> : Editor verlassen, gesamte Zeile ausgeben. 

Q : Editor ohne Wirkung verlassen. 

L : Gesamte Zeile sichtbar machen und Editieren 
fortsetzen. 


H. Wichtige Control-Zeichen 


<ttri-A> : Editor mit gerade eingegebener Zeile aufrufen. 
<Ctrl-B> : Backslash (\, auf deutschen Tastaturen Ö), 
<Ctrl-5> : Hält Programm an. 

<Ctrl-0> : Programm nach <Ctrl-S> weiter fortsetzen. 
<Ctrl-X> : Eingabezeile löschen. 


I. Befehle zur Cursorsteuerung 


wAS : HOME, HTAB(AMB), INVERSE(AMB), NORMAL(AMB), POS, SPC, 
VTAB(AMB). 


TAB(X) : bewegt den Cursor in die Spalte X. Falls X<POS(ß), wird 
der Cursor in der nächsten Zeile in die Spalte X 
gesetzt, 


TAB darf nur in PRINT-Anweisungen verwendet 
werden! 


VPOS{ß) :; Gibt die Zeile an, in der der Cursor steht. 
WIDTHs,z: Setzt die Anzahl der Spalten zur Bildschirmausgabe auf 
s und die Anzahl der Zeilen auf z; AMB. 


J. Felder 


DIM Ala,b,c) : Dimensioniert ein REAL-Feld, untere Feldgrenze ist 
A(B,9,0) bei OPTION BASE ® oder A(l,1,1) bei 
OPTION BASE 1 

OPTION BASE n: Setzt untere Feldgrenze auf n (s.DIM). Zulässig 

sind n= 6 (default) oder n= 1]. 

Löscht den Array FELD, dieser kann dann neu 

dimensioniert werden. 


ERASE FELD 


K. Zeichenketten 


wAS: ASC, CHR$, LEFT$, LEN, MID$, RIGHT$, STR$, VAL 

X$ = HEX$(n)} Ergibt hexadezimale Darstellung von n, wobei n 

im Integerbereich liegen muß. 

INSTR(n,X$,Y$): Überprüft beginnend bei Position n in X$ 
diesen auf Übereinstimmung mit Y$. Das 
Ergebnis ist gleich der ersten 
übereinstimmenden Position. Ist Y$ nicht in X$ 
erhalten, ergibt INSTR den Wert ß. Bsp.: 
INSTRL 1234 Dar) ergibt 24 
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MID$(X$,p,n) = Beginnend ab Position p werden die Zeichen in 
X$ durch Y$ ersetzt, es werden max. m 
Buchstaben ausgetauscht. 

Ergibt die oktale Darstellung von n, 8S.a. 
HEX$_ 

xX$ = SPACE$(n) Ergibt n Leerzeichen, 

x$ STRING${n,m) : Ergibt n Zeichen mit ASCII-Code m. 

Y$ = STRING$(n,X$): Ergibt n-mal das l.Zeichen von X$. 


x$ OCT${n) 


L. Ein- und Ausgabebefehle 
wAS : GET(AMB), DATA, READ, RESTORE, PRINT. 


INPUT "X:";X : Druckt "X:?" und wartet auf Eingabe, 

INPUT "X:",X : Gibt vor der Eingabe "X:" aus, 

INPUT; "X:",X : Unterdrückt Zeilenvorschub nach der Eingabe, 

Cursor bleibt nach <RETURN> in Eingabezeile, 

Fragt Tastatur ab und übergibt, falls Taste 

gedrückt wird, das entsprechende Zeichen, sonst "" 

X$ =INPUT$(n): Liest n Buchstaben, ohne sie auf dem Bildschirm 
darzustellen. 

LINE INPUT %X$: Liest eine Zeichenkette bis zum <RETURN> ein und 

ermöglicht dabei die Eingabe von Kommata und 

Anführungszeichen im Text 

Setzt DATA-Bingabezeiger auf die DATA-Liste in 

Zeile n. 

PRINT USING : Ausgabe einer Variablenliste entsprechend einer 
Formatliste. Bsp.: PRINT USING "x###.##+ DM";2 
ergibt "x#x*2.00 DM", Es erfolgt also eine Ausgabe 
der Formatliste, wobei gewisse Platzhalterzeichen 
durch Variablen der Liste ersetzt werden, 


x$ = INKEY$ 


RESTORE n 


Die wichtigsten Platzhalterzeichen und ihre Bedeutung: 


Ausgabe einer Zeichenkette beliebiger Länge, 
Markierung eines Ausgabefeldes für Strings. Die Anzahl 
der ausgegebenen Zeichen ist gleich der der 
eingeschlossenen Leerzeichen +2 
Markierung einer Ziffer im Ausgabefeld. 
Markierung eines Kommas in der Ausgabe, Bei #+#,## werden 
von einer Variablen zwei Vor- und zwei Nachkommastellen 
ausgegeben. 
Zeigt die Stelle an, an der das Vorzeichen einer Zahl 
ausgegeben werden soll: Bsp.: ##.##+ 
Ein Minuszeichen wird hinter der Zahl ausgegeben, 
Pluszeichen werden nicht gedruckt. Bsp, : ###- 
Alle Leerstellen im Zahlenausgabefeld werden mit "x" 
gefüllt (s.,o.); sog. "Scheckformat". Bsp.: x«#+#, #+ 

11T : Erzwingt Exponentialdarstellung einer Zahl. Bsp.: #111. 


Reicht bei einer Ausgabe ein Zahlenfeld nicht aus, wird ein "2%" 
als Warnzeichen ausgedruckt, 


M. Druckerausgabe 


ERRIND: wie PRINT, Ausgabe erfolgt auf dem Drucker. 
Ebenso LPRINT USING 
X=LPOSI(B): 


WIDTH LPRINT n: Setzt dıe maximale Spaltenzahl für die 
Bruckerauspahe auf n Bsp.: WIDTH LPRINT 49 


N. Befehle zur Programmablaufkontrolle 
wAS : GOTO, GOSUB, ON...GOTO, ON...GOSUB, POP{AMB), RETURN. 


IF A=B THEN : wAS, jedoch kann für den Verneinungsfall (Aist 

nicht gleichB) die ELSE-Alternative benutzt 

werden: IF A=B THEN B=B-1 ELSE ?"ERROR", 

Die von WHILE/WEND eingeschlossenen Programmzeilen 
werden solange ausgeführt, wie A=B erfüllt ist. 


WHILE A=B 


WEND 

FOR...NEXT : wAS, aber: Die Schleifenbedingung wird vor dem 
ersten Schleifendurchlauf getestet, d.h. eine 
Schleife FOR L = 3 TO 1 wird nicht durchlaufen, im 
Applesoft würde dagegen eine einmalige Ausführung 
erfolgen. 


O. Anweisungen zur Fehlerbehandiung 


ON ERROR GOTO n : Im Fehlerfall wird eine 
Fehlerbehandlungsroutine in Zeile n 
angesprungen 

ON ERROR GOTO 8 : Normale Fehlerbehandlung (Ausgabe von 
Fehlermeldungen} wird wieder eingeschaltet. 

RESUME /RESUME ß: Fehlerbehandlungsroutine verlassen und in die 

Zeile zurückkehren, in der der Fehler auftrat 

Wie RESUME, aber in der dem Fehler folgenden 

Zeile die Ausführung fortsetzen. 

RESUME n : Das Programm in Zeile n fortsetzen, 

= ERR : Ergibt die Nummer des aufgetretenen Fehlers, 
X = ERL : Gibt die Zeile an, in der der Fehler auftrat. 
ERROR n : Erzeugt einen Fehler mit Fehlernummer n 


RESUME NEXT 
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Ergibt dieaktuelle Position (Spalte) des Druckkopfes. 


P. Lores-Grafik 
wAS: COLOR=, HLIN, GR, PLOT, SCRN, TEXT, VLIN. 


GR n,c : Der Grafikbildschirm wird mit Farbe c (ß-15) 
gelöscht; n=ß schaltet auf Grafik und 4 Textzeilen, 
n = l auf volle Grafikdarstellung. Bsp.: GR 1,12 


Q. Hires-Grafik (nur mit GBASIC-Interpreter möglich sowie Standard bei 
Premium Card) 
wAS : HGR, HCOLOR=, HPLOT. 


HGR m,c : Schaltet HGR-Modus m ein und löscht Schirm ggf. mit 
Farbe c. Bsp.: HGR 1,3 


Modus schirmlöschung 
280 * 168 Pkte,, 4 Textzeilen ja, Farbe & 
288 *» 192 Pkte. ja, Farbe c 
280 * 168 Pkte,, 4 Textzeilen nein 

280 » 192 Pkte, nein 


Y=HSCRN(X,Y): Ergibt -1, falls Punkt auf Schirm gesetzt, Bsp.: IF 
HSCRN({128,128) THEN ?"CRASH I" 


R. Gameport und Lautsprecher 
WAS. PD“ 


Y = BUTTON{p) : Fragt Druckknopf an Paddle p ab, ergibt -1, falls 
Knopf gedrückt, sonst 9. Bsp.: IF BUTTON(ß) THEN 

BEEP h,1l : Erzeugt einen Ton der Höhe h und Länge 1, hund 
sind Integerwerte im Bereich 8-255 


* Alle Befehle, die Grafik und Gameport betreffen, gehören nicht 
zum Standardsprachumfang des MBASIC. 


S. Mathematische Funktionen 
wAS : ABS, ATN, COS, EXP, INT, LOG, SGN, SIN, SQR, TAN. 


B=SPEXI.| Die Nachkommastellen von X werden 

abgeschnitten 

RND{n} : wAS, aber: Jeder Programmlauf erzeugt 

dieselben Zufallszahlen, wenn nicht mit 

RANDOMIZE ein neuer Startwert erzeugt wurde, 

Erzeugung einer Zufallszahlenreihe in 

Abhängigkeit von der Integerzahl A%. 

Programm hält an und fordert zur Eingabe eines 

Wertes auf. ("Random number seed ...") 

SWAP A,B : Der Inhalt der Variablen A und B wird 
ausgetauscht. 

DEF FNA(X,Y)=X#Y: Definiert die Funktion Amit den ParameternX 
und Y. Aufrufmit z,B. ?FNA(2,3) ergibt 6. 


RANDOMIZE A% 


RANDOMIZE 


T. Befehle zur Programmdateienverwaltung 


Dateienbefehle werden wie normale BASIC-Befehle gehandhabt. 
Bsp.: 128 RUN "TEIL2.BAS", dagegen ist 
128 ?CHR$(4);"RUN TEIL2.BAS" falsch! 


NAME$ ist ein Stringausdruck (Konstante oder Variable), der 
einen File-Namen entsprechend CP/M (fname,ftyp) darstellt. Bsp.:! 
ITEILIZBEAS!, SSESTZ TEL 


RUN NAME$ 
LOAD NAMES 
SAVE NAMES 
SAVE NAME$,A 
SAVE NAME$,P 
MERGE NAME$ 


Programm laden und starten. 

Programm laden. 

Programm abspeichern. 

Programm als ASCII-Text abspeichern. 

speichern und Listschutz setzen, 

Programm über das im Speicher befindliche 

laden, NAME$ muß ein ASCII-Programmfile sein. 

Programm laden und mit COMMON vereinbarte 

Variablen übergeben. 

COM N varl,var2 : Festlegung der Variablen, die bei einem CHAIN- 
Aufruf an das nachgeladene Programm übergeben 
werden sollen. Bsp,: COMMON A,B{),cC$ 

KILL NAMES : Löschen einer Datei. 

NAME ALT$ AS NEU$: Umbenennen einer Datei. Bsp.: NAME "TEST.BAS" 

AS "PROBE.BAS" 


CHAIN NAMES 


Bei KILL und NAME muß unbedingt der Dateientyp angegeben werden 
Alle anderen Befehle nehmen ".BAS" als Typ an, wenn diese Angabe 
fehlt. Bsp.: RUN "TEST" ist equivalent mit RUN "TEST.BAS" 


FILES : Ausgabe des Inhaltsverzeichnisses des 

Bezugslaufwerks, 

Ausgabe des Inhaltsverzeichnisses der Disk d. 

Bsp.: FILES "B:*.*=" für Slot 6, Drive 2, 

RESET : Neuanmeldung einer Diskette im CP/M 
Betriebssystem, Befehl muß nach jedem 
Diskettenwechsel eingegeben werden. 

SYSTEM : Verlassen des MBASIC und Rückkehr in das 
CP/N-Betriebssysten. 


FILES '"d:#*,*" 
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Peeker-Sammeldisk #9 


Diese Diskette enthält die Pascal-Programme aus den Heften 
1-10/1985 im Pascal-Format. Einzelpreis 28,-; Fortsetzungs- 
preis DM 20,-. Die Fortsetzungsbezieher werden benachrichtigt, 


da keine Pflichtabnahme für Pascal-Disketten. 


PEEKER 89: 
DUPDIR.TEXT (1/85) 
DUPDIR.CODE 
GETDOS.TEXT 
GETDOS.CODE 
MOUSESTUFF.TEXT (4/85) 
MOUSESTUFF.CODE 
TESTMOUSE.TEXT 
TESTMOUSE.CODE 
DRAWMOUSE.TEXT 
DRAWMOUSE.CODE 
MOUSE.ASS.TEXT 
MOUSE.ASS.CODE 
MOUSE.LIBRARY 
TRANSCEND.TEXT (5/85) 
TRANSCEND.CODE 
RAMDISK94.TEXT (6/85) 
INIT.TEXT 
INSTALL.TEXT 
RAMDISK94.CODE 
IDSEARCH.TEXT (8/85) 
IDSEARCH.CODE 
ALLG.TEXT (9/85) 
ALLG.CODE 
MUEL.TEXT 
MUEL.CODE 
CRUNCH.TEXT (10/85) 
CRUNCH.CODE 
MOVER.TEXT 
MOVER.CODE 
CRUNCHER.TEXT 
CRUNCHER.CODE 


en 
oO mr 


nD Id N 
OS OOUVWPDPRPDODOD 


—h 


— 


— 


nD 


T 
A 
4 
A 
3 
0 
3 
8 
5 
8 
6 
A 
3 
4 
3 
4 
4 


1-Dec-84 
1-Dec-84 
8-Dec-84 
8-Dec-84 
29-Jan-85 
29-Jan-85 
29-Jan-85 
29-Jan-85 
29-Jan-85 
29-Jan-85 
29-Jan-85 
29-Jan-85 
29-Jan-85 
3-Dec-84 
3-Dec-84 
8-Feb-85 
8-Feb-85 
8-Feb-85 
8-Feb-85 
28-Nov-84 
28-Nov-84 
21-Jul-85 
27-Jul-85 
12-Jul-85 
27-Jul-85 
13-Apr-85 
13-Apr-85 
13-Apr-85 
13-Apr-85 
13-Apr-85 
13-Apr-85 


Der nächste Peeker 


Heft 10/1985 
erscheint am 
23. 9. 1985 





Einzelbezug DM 28,- 
Fortsetzungsbezug DM 20,— 

Pascal- und CP/M-Disketten können 
vom Fortsetzungsbezug ausgeschlos- 
sen werden, 

(Jederzeit kündbar, jedoch mindestens 
6 Disketten) 

(* = nur auf Diskette, nicht im Peeker 
gelistet! Seitenangaben beziehen sich 
auf Beginn des Listings) 

Hüthig Software Service 

Postfach 102869 » 6900 Heidelberg 1 


Disk #1 
(Heft 1+2, 1984, DOS-Format) 


T.DISASSEMBLER,65C02 (1/84, S. 15) 
DISASSEMBLER.65C02 


T:ACCEL.WAIT (1/84, S. 22) 
ACCGEL.WAIT 
T.,ACCGEL.BOOT 
ACCEL.BOOT 
ACCEL,LG,KOPIERER 
TACCELILG;KOPIE 
ACCEL.LC.KOPIE 
T.ACCEL,ROM.KOPIE1 
ACCEL.ROM.KOPIET 
T,ACCEL,ROM.KOPIE2 
ACCEL.ROM.KOPIE2 


TURTLE.GRAFIK.MIT,REMS (1/84, S,29) 
TURTLE.GRAFIK,OHNE,REMS * 


DOUBLE.LORES.SOFTSWITCH.DEMO 
(1/84, S. 37) 
DOUBLE.LORES,.APPLESOFT.DEMO 
AMPER.DOUBLE.LORES.DEMO 
T,AMPER.DOUBLE.LORES 
AMPER.DOUBLE.LORES 
T.DOUBLE.LORES 

DOUBLE,LORES 


HIRES (1/84, 5:41) 
T.PRINTHIRES 
PRINTHIRES 


DHGR.APSOFT,.DEMO (2/84, S. 30) 
AMPER.DOUBLE.HIRES.BAS 
AMPER.DOUBLE.HIRES 
T.AMPER,DOUBLE.HIRES 
DHGR.LINEPLOTTER 


INSTRING.TEST (2/84, S, 43) 
INSTRING.OBJ 
T.INSTRING.OBJ 
INSTRING.LISA.SOURCE 


LOESCHEN.EINES.ARRAYS 
(2/84, S, 52) 


ULTRATERM.ENGLISCH * (2/84, 5. 60) 
ULTRATERM.DEUTSCH * 


PRIMZAHLEN.OVERMEYER * 
(2/84, 5. 70) 
PRIM.OBJO * 
PRIM,OBJ1 * 
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PRIM.TEST * 
PRIM.TOOLKIT,SOURGE * 


Disk #2 
(Heft 1-2, 1985, DOS-Format) 


T,RAMDISKLC (1-2/85, S. 14) 
RAMDISKLC 


T,IBS.RAMDISKDRIVER (1-2/85, S, 20) 
IBS.RAMDISKDRIVER 


T.AP20.RAMDISKTEST 
AP20,RAMDISKTEST 


T.QUICKCOPY (1-2/85, S. 26) 
QUICKCOPY 
QUICKCOPY,.PUFFER 
PRODOS.COPYA 
KPRODOSZ,COPYOBJ* 
PRODOS.,COPYOBJ 


PRODOS,PATCH (1-2/85, S.'31) 


T.APPLESOFT,FRE (1-2/85, S,:36) 
TsLG.FRE 

LGFRE 

ERE-NEST 

T.RAM.FRE * 

RAM,FRE 


T,SCHIRMDISK (1-2/85, S. 44) 
SCHIRMDISK,LISA.SOURCE 
SCHIRMDISK 


T.VIDEXT 
VIDEXT.LISA,SOURCE 
VIDEXT 


GETPAS (1-2/85, 5.70) 
T.GETPAS,ASS * 

GETPAS,ASS 
GETDOS,PASCAL, SOURCE 
COPYDUPDIR.PASCAL.SOURCE 


PRODOS,EDITOR.MACROS 
(1-2/85, S. 86) 


Disk #3 
(Heft 1-2, 1985, CP/M-Format) 


STEUER,84 (1-2/85, S. 47) 
PASS.BAS 
MENUE.BAS 
HELR,BAS * 
A.BAS 
B,BAS 
C.BAS 
D.BAS 
E,BAS 
F.BAS 
G.BAS 
H.BAS 

I.BAS 
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Sammeldisketten 


J.BAS 
K.BAS 
L.BAS 
M.BAS 
N,BAS 


Disk #4 
(Heft 3+4, 1985, DOS-Format) 


TESTGENERATOR (3/85, S. 26) 
SAETZE 

BÄHNFAHRT * 

Zu 

TUN,UND,SOLLEN * 

IRGEND * 


MULTIPRECISION (3/85, 5. 32) 


T.WS,TRANSFER (3/85, 5. 36) 
WS.TRANSFER 
T.WS.TRANSFER.2 * 
WS.TRANSFER,2 * 

GETCPM 


PRIM,0.5C.SOURCE (3/85, S. 62) 
PRIM,O.BIN 


PRIM.1,5C.SOURGE 
PRIM.1.BIN 
PRIM,FP 


ACCELERATOR,.ABSTELLEN 
(3/85, S. 66) 


T,WILDCARD.TEST * (3/85, S., 72) 
WILDCARD,TESTI * 
T.WILDCARD.TEST2 * 
WILDCARD.TEST2 * 


XPLOT.DEMO (4/85, S. 18) 
XPLOT,ROUTINE 
T.XPLOT,ROUTINE 


MENUE.GENERATOR (4/85, S. 22) 
T.MACROS.65C02 (4/85, S. 31) 


TERMINAL (4/85, S.36) 
TERMINAL.B 
T.TERMINAL.B 


CAT.ARRAY (4/85, S, 44) 
CAT.SAVER 
EINTRAG.SUCHER 
EINTRAG.ANALYSE 
PRODOS.READER 
T.PRODOS,.READER.OBJ 
PRODOS.READER.OBJ 


MOUSESTUFF,PASGAL.SOURCE 
(4/85, 5. 51) 
MOUSE.ASS.PASCAL.SOURGE 
TESTMOUSE.PASCAL, SOURCE 
DRAWMOUSE.PASCAL.SOURCE 


INALL.DATA (4/85, S. 70) 
SCREEN80,DATA (4/85, S. 33) 
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SCREEN80,SAVER (4/85, S. 76) 


Disk #5 
(Heft 5, 1985, DOS-Format) 


T.FNEBSE 75/85, 5.9) 
FM.BSP 


T,SLOTRAMDISK (5/85, 5. 13) 
SLOTRAMDISK 
SLOTRAMDISK.HELLO 


FLOW (5785, S. 20) 
T.PLOT%B 

PLOT2B 
REOT-PROTEGTOR 


T,CONVERT560 (5/85, S. 26) 
CONVERT560 
CONVERT560.DEMO 


T.EDA (5/85, S,,33) 
EDA 


TRANSCGEND.PASCAL.SOURCE 
(5/85, S. 36) 


T,BLOCKTRACER (5/85, S. 51) 
BLOCKTRACGER 
T.BLOCKTRAGER!1 
BLOCKTRAGERI 


FORMAT.LC (5/85, S. 56) 
FORMAT.LG,START 


T.DISKDRIVER.DEMO 
DISKDRIVER.DEMO 


RANDOM.DEMO (5/85, S. 69) 
COLUMN80.DEMO 


SUPERDUMP.EPSON (68/85, S. 22!) 
SUPERDUMP.IMAGEWRITER 
SUPERDUMP.BILD 

T.SUPERDUMP x 

SUPERDUMP 

EPSON 

IMAGEWRITER 


Disk #6 
(Heft 6, 1985, DOS-Format) 


HELLO (6/85, S. 72) * 
ASMDIV « 


CURSORI (6/85, S. 6) 
T.CURSOR1I 
CURSOR2 
T.CURSOR2 
LINIE 

T.LINIE 

VIERECK 
T.VIERECK 

BOX 

T.,BOX 
HINTERGRUND 
T.HINTERGRUND 


PAGE.SWAP 
T.PAGE.SWAP 


WANDERNDER,STRICH (6/85, 5. 16) 
KOMPRESSOR.DEMO 

KREIS. 1 

KREIS.2 

KREIS.3 

ERIPRER 

ERÜIRPEH 

KOMPRESSOR 

T.,KOMPRESSOR 


OLYMPIA (6/85, S. 34) 
T.OLYMPIA 


FOURIER.MAIN (6/85, S. 38) 
FOURIER.SYN 
FOURIER.SPEC 


AS.ERWEITERUNG (6/85, S. 43) 
T,AS,ERWEITERUNG 
AS.ERW.PROSTART 
AS,ERW.PRO # 

T.AS.ERW.PRO x 


INSTALL.PASCAL.SOURCE 
(6/85, 5. 48) 

RAMDISK94.PASCAL.SOURCE 

INIT,PASCAL.SOURGE 


RAMDISK.INIT.DOS (6/85, S. 55) 
AUXDRIVER 

T.AUXDRIVER 

MOVEDRIVER 

T.MOVEDRIVER 
RAMDISK,FORMATTER 
T.RAMDISK.FORMATTER 


SOLITAIRE.START (6/85, S,. 64) 
SOLITAIRE 

SOLITAIRE.B 

T.SOLITAIRE.B 


Disk #7 
(Heft 7, 1985, DOS-Format) 


PYRAMID.PITTY (7/85, S. 6) & 
T.PYR,PITTY.O x 
T.PYR.PITTY.1 * 

PYR.PITTY.O & 

PYR.PITTY.1 x 
PYR.PITTY.BACK x 
PYR.PITTY.SHAPE x 


T.MEGAWARP.REL (7/85, S. 8) * 
MEGAWARP.REL * 
T,MEGAWARP.9900 
MEGAWARP.99O0O 
TSPEEDTEST 

SPEFBDTEST 


FORMAT (7/85, S. 20) 
T.FORMAT.OBJ 
FORMAT.OBJ 


BITEDITOR (7/85, S; 29) 
NORMAL * 


FETT x* 
FETT.INVERSE * 


PASTOPRO.1D (7/85, S. 62) x 
PASTOPRO.2D 
T,PASTOPRO.O 
PASTOPRO.O 


T.CONVERT (7/85, S, 69) 
CONVERT 


TSVORLESER (7/85, S, 71) 
VORLESER 


Disk #8 
(Heft 8, 1985, DOS-Format) 


HELLO «* 
ASMDIV « 


DISKTEST (8/85, S. 14) 
DISKTEST.START 
T,DISKTEST 


KOPY (8/85, S. 22) 
BATCHKOPY 
T.GETSETINFO 
GETSETINFO 
BIEDITEST 


T.BOX.COPY (8/85, S. 26) 
BOX.COPY 

T.HSCRN 

HSCRN 
GRAF.QUATTRO.1 


T,DOUBLE,LORES (8/85, S. 34) 
DOUBLE.LORES 
DOUBLE.LORES.DEMO 


START.CMD (8/85, S. 40) 
HMENUE,CMD x 
AUFNAHME.CMD « 
AUFMASKE.CMD « 
AUSGABE.CMD + 
SUCH.CMD &* 
EDITFNAME,CMD «+ 
SUCHVYNAME.CMD #* 
SUCHBEME.CMD «* 
SCHREIBA,CMD * 
SCHREIBL.CMD * 
LOESCH.CMD & 


IDSEARCH.PASCAL.SOURCE 
(8/85, S. 49) 


FAKULTAET.DEMO (8/85, S. 57) 
T.FAKULTAET 

FAKULTAET 

GRAFIK.DEMOS (8/85, S. 68) 
ZEICHENJAGD (8/85, S. 70) 


T.RAM.FRE.NEU (8/85, S. 70) * 
RAM.FRE.NEU 
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Um es gleich vorweg zu sagen: Das Pas- 
cal-Preisausschreiben aus Heft 7/85 war 
„ein Schuß in den Ofen“. Als das erste 
Peeker-Heft im September 1984 erschien, 
wurde ein Primzahlen-Wettbewerb ausge- 
schrieben, an dem sich über 270 Leser 
beteiligten, und das, obgleich der Peeker 
damals naturgemäß noch kaum bekannt 
war. Demgegenüber gingen jetzt, nach- 
dem sich der Peeker mittlerweile zu einer 
bekannten und weitverbreiteten Apple- 
Zeitschrift gemausert hat, insgesamt nur 
ein knappes Dutzend Lösungen ein, von 
denen nur ganze zwei richtig waren. Läßt 
sich daraus schließen, daß es unter den 
Apple-Programmierern nur ganz wenige 
Pascal-Programmierer gibt und daß es un- 
ter den Pascal-Programmierern nur ganz 
wenige gibt, die wirklich schwierige Pro- 
gramme schreiben können? Ich kann es 
kaum glauben, aber es muß wohl so sein. 
Zwar wird Pascal an Schulen gelehrt, doch 
scheint man dort nur selten über die 
Grundlagen hinauszukommen. Und Hob- 
byisten sind wohl eher geneigt, sich mit 
Applesoft und Assembler zu befassen, zu- 
ma! das Pascal-Betriebssystem erst bei 
einem voll ausgebauten Apple-System in- 
teressant wird. Außerdem kostet das Pas- 
cal-Betriebssystem knapp DM 1000,-, 
während der Applesoft-Interpreter gratis 
im ROM mitgeliefert wird. Für mich stellt 
sich natürlich jetzt die Frage, ob ich in 
Zukunft mehr oder weniger Pascal-The- 
men behandeln soll. Einerseits müßte man 
weniger Pascal-Programme bringen, weil 
das Interesse an Pascal zu gering Ist. An- 
dererseits könnte man mehr Pascal-The- 
men behandeln, weil ein Teil der Apple- 
Besitzer noch keinen rechten Zugang zu 
Pascal gefunden hat, obgleich ein Interes- 
se vorhanden ist. Wie dem auch sei, 
schreiben Sie mir, ob wir in Zukunft mehr 
oder weniger Pascal-Aufsätze bringen sol- 
Ien. Verwenden Sie zu diesem Zweck die 
in diesem Heft eingeheftete Info-Karte, auf 
der Sie nur das Gewünschte oder Vorhan- 
dene anzukreuzen brauchen. 


Zurück zum Wettbewerb. Der 1. Preis mit 
DM 500,- geht an Herrn 

Ulrich Allgeier 

in Stutigart. Sein Punktesaldo beträgt 
4394. Den 2. Preis mit DM 250,- hat Herr 
Gil Müller 

ın Köln mit einem Punktesaldo von 5877 
gewonnen. Die Programme beider Gewin- 
ner laufen unter Pascal 1.1 und 1.2, elimi- 
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Pascal-Preisausschreiben 


nieren Otrl-Zeichen und Bit-7-on-ASCII- 
Zeichen aus dem ProDOS-Textfile, finden 
jeden beliebigen Textfile-Eintrag im Pro- 
DOS-Volume-Directory (also nicht nur den 
1. Eintrag des 1. Blocks), können bis zu 
32K große Dateien verarbeiten, die auf der 
ProDOS-Diskette nicht als kontinuierliche 
Blocks abgelegt sind, und laufen auf jeder 
normalen 35-Spur-Pascal-Diskette. Bei al- 
len anderen Lösungen war die eine oder 
andere Forderung nicht erfüllt. Einige „Lö- 
sungen“ liefen sogar nur auf ihrer eigenen 
Diskette; dies war nun doch wohl etwas zu 
plump. Übrigens mußte man Pascal 1.2 


PROTOPAS-Quellcode (ALLG.TEXT) 
von Ulrich Allgeier 
(läßt sich normal compilieren) 





nicht kennen, um die Lösung zu erstellen, 
denn bei seriöser Programmierung wäre 
eine Pascal-1.1-Programm auch stets un- 
ter dem Pascal-1.2-Betriebssystem gelau- 
fen. Von absoluten Systemadressen wie 
„Time“ durfte man dann jedoch nicht 
mehr ausgehen. 

Auf der Peeker-Sammeldiskette #9 befin- 
den sich die beiden Lösungen der zwei 
Gewinner unter den Dateinamen ALLG- 
‚TEXT und ALLG.CODE für die PROTO- 
PAS-Version von Ulrich Allgeier sowie 
MUEL.TEXT und MUEL.CODE für die 
PROTOPAS-Version von Gil Müller. us 


TYPE B=INTEGER;Y=PACKED ARRAY[O..1]OF 0..255;VAR 
,L,H,N,M:B;F:FILE;PROCEDURE P(V:B);VAR T:RECORD CASE BOOLEAN OF 


BALSE (2,5) TRÜBIR 7 NENDEBEGINT A SET 


1:=V;l;=1+1;END;PROCGEDURE 


O;BEGIN 
:=513;P(104);P(133);P(18);P(104);P(133);P(19);P(104);P(133);P(0);P(104);P(133) 
‚PON;P(I04), N P(160);P(1);P(177);P(0);,P(153);P(6);P(0);P(185);P(0);P(0);P 
(153),P(2);P(0);P(153);P(4);P(0);P(136);P(16);P(239);P(162);P(255);P(198);P(6); 
P(208);P(4);P(198);P(7);P(48);P(8 9) P(230);P(2);P(208);P(2);P(230);P(3);P(160); 
P(2);P(177);P(2);P(41);P(127);P(168);P(201);P(13);P(240);P(40);P(201);P(32);P( 
144) ;P(227);P(138);P(48);P(37);P(152);P(73);P(32);P(240);P(12);P(202);P(48);P( 
29),P(208);P(10);P(169);P(32);P(32);P(113);P(2);P(208);P(20);P(232);P(208);P( 
204);P(169);P(16);P(32);P(113); Pe) P(138);P(105);P(32);P(32);P(113);P(2);P(208 
),P(4);P(162);P(0);P(240);P(2);P(162); a (152);P(82);P(113),P(2);P(208);P( 
179);P(230);P(4);P(208);P(2);P(230);P(5);P(132);P(16);P(160);P(2);P(145);P(4);P 
(164);P(16);P(96);P(169);P(0);P(32);P(113);P(2);P(165);P(1);P(69);P(5);P(41);P( 
3);P(208);P(243);P(165);P(0);P(197);P(4);P(208);P(237);P(160);P(1);P(169);P(0); 
P(145);P(0);P(136);P(165);P(5);P(229);P(1);P(74);P(145);P(0);P(165);P(19);P(72) 
‚P(165);P(18);P(72);P(96);1:=-320;P(0);P(2);END;PROCEDURE 


k 
R;VAR A:PACKED ARRAY[0..2047]OF 0..255;D:ARRAY[-1..16383]OF B;BEGIN REPEAT 
| 


UNITREAD(5,A,2048,2); 


:=-16151;P(0):WRITELN(PROTOPAS U.Allgeier');l:=0:FOR 


N:=0 TO 3 DO FOR M:=0 TO 12 DO BEGIN H:=A[N#512+Mx39+4]MOD 
16;IF(AIN#512-+Mx39+20]=4)AND(H>O)THEN BEGIN 


&$I-#)l:=1+1;D[N:=N;D]I+99]: = 


M;WRITE(I, 


),;FOR L!:=1 TO H DO 


WRITE(CHR(A[N#512+M#39+4+L]));WRITELN:END;END;READLN{L);UNTILL 
IN{..I;L:=D[L]#512+D[L+99]#39;H:=A[L+4]DIV 


16;D[-1]:= 


(AIL+25]+A[L+26]#*256) ;WRITE(*#** START’,CHR(7));CASE H 


OF 1:UNITREAD(5,D[0],512,AIL+21]+A[L+22]x256):2:BEGIN 


UNITREAD(5,A,512,A[L+21]+A[L+22]#256);H:=0;N:=A[H]+256*A[H+256];M:=N;l:=1: 


REPEAT IFN+I=A[H+1]+256#A[H+1+256]THEN BEGIN I;=1+1;END ELSE BEGIN 
UNITREAD(5,D[256x&H],512&1,N);H:=H+1;1:=1;N:=A[H]+256*A[H+256]; END; UNTIL 


N=0;END;END;I:=-16151;P(0);P(0); UNITSTATUS(9,D,1);H:=BLOCKWRITE(F,D[0],D[-1],2) 


‚WRITE(CHR(7), x#* ENDE’);CLOSE(F,LOCK);END;BEGIN 


BEVVAUDELE TEWPAITERIEISOSESEND: 
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Der Computerladen in Nürnberg 


Erst seit gut einem Jahr, seit dem 2. Mai 
1984, befindet sich der HIB Computerla- 
den in Nürnberg, in der Äußeren Bayreu- 
ther Straße 72. Entgegen der Meinung 
verschiedener Hardware-Hersteller hat 





Personal Computer 


Im Bereich Personal Computer werden die 
Rechner von Zenith, Z-150 und Z-160, 
und der Rainbow von Digital angeboten. 
Zu diesen Computern werden angemes- 
sen leistungsfähige Drucker von Brother, 
Epson und NEC betriebsbereit vorgeführt. 
Farbmonitore von Taxan und IBM-kompa- 
tible Interface-Karten von AST werden 
ebenfalls im Beirieb gezeigt. Als autori- 
sierter Fachhändler von „Microsoft“, „LOo- 
tus“ und der „SM-Software-AG" konzen- 
triert sich das Software-Angebot in diesem 
Bereich auf den Anwender im Büro. 


Home-Computer 


Das Home-Computer-Angebot reicht vom 
Commodore 64, der als Lern-Computer 
für Kinder oder Spielcomputer für Jugend- 
liche und Erwachsene seine Käufer findet, 


sich das Konzept mehr als bewährt: Man 
hat sich nicht auf einen Hardware-Herstel- 
ler fixiert und mit dieser Methode bereits 
im ersten Jahr einen Umsatz von mehr als 
1,5 Mio. DM erreicht. 


über den Schneider CPC464 bis zum Al- 
phatronic PC, der meist als kostengünsti- 
ges lextverarbeitungssystem optimal ein- 
gesetzt wird, 


Hier findet der Besucher auch ein umfang- 
reiches Angebot an Fachliteratur und Soft- 
ware für den Heimbereich. Wie bei den 
Personal Computern werden auch für die- 
se Rechner in Preis und Leistung der An- 
wendung angemessene Drucker, Monito- 
re, Joysticks und immer die neuesten Pe- 
ripherie-Geräte angeboten. Druckerpapier 
und Farbbänder für alle angebotenen 
Drucker sind ebenso vorrätig wie Disket- 
ten in jeder Qualität und Ausführung. 


Apple-Computer 


Bei Hobby-Anwendern genauso beliebt 
wie bei Büromenschen sind die Rechner 
Apple Ilc, Apple Ile und der Macintosh. 


Dieses Händler-Profil basiert auf einer Selbstdarstellung von HIB. 
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4 hÄndler-profil 4 


Deshalb wurden sie auch im mittleren Teil 
des Ladens, neben und gegenüber der 
Kasse aufgestellt. Für den Macintosh wer- 
den an Software neben der gesamten Pro- 
duktpalette der Firma Microsoft und 
„Jazz“ von Lotus hauptsächlich Spiel- 
und Grafikprogramme angeboten. Eine 
ganz besondere Stärke des HIB-Compu- 
terladens liegt in der Anpassung verschie- 
denster Geräte an alle gängigen Micro- 
computer, Neben Anschlußmöglichkeiten 
von z.B. Typenraddruckern am Macintosh 
wird seit neuestem ein serieller Drucker- 
Puffer angeboten, der für alle für den Mac- 
intosh erhältlichen Druckmodelle lieferbar 
ist. 

Die Apple-Iic-Besitzer sind beeindruckt 
von der Qualität des TAXAN-Monitors, der 
über die TAXAN-RGB-Karte betrieben 
wird, und vom günstigen Preis des ange- 
schlossenen Chinon-Laufwerks. 


Das umfangreichste Angebot an Periphe- 
rie kann man für den Apple II+ und Ile 
vorweisen. Neben Farbmonitoren, RGB-, 
80-Zeichenkarten, IC-Test-Karten und In- 
terface-Karten für fast jede Anwendung 
sind die Kunden immer wieder von der 
Kapazitat (640OK formatiert) und einfachen 
Bedienung der angeschlossenen 5 1/4"- 
und 3 1/2“-Laufwerke begeistert. Da die- 
se Rechnerserie nach wie vor ausgespro- 
chen vielfältig einsetzbar ist, bietet der 
HIB-Computerladen von der Hobby-An- 
wendung bis zum Einsatz als Meß- oder 
Steuergerät fast alles, was den Kunden 
interessiert. Als erstes Standard-Soft- 
ware-Produkt der Firma HIB befindet sich 
seit Februar 1985 ein Terminalprogramm, 
„HIB-Modem-Transfer“, auf dem Markt, 
das zusammen mit einem Anschlußkabel 
(vom Game-I/O des Apple II+ oder Apple 
ie zur V.24-Schnittstelle eines Akustik- 
Kopplers) geliefert wird und für den Hob- 
by-Anwender eine preiswerte Alternative 
zu herkömmlichen Kommunikationsmög- 
lichkeiten bietet. 


Neben dem Ladengeschäft ist auch der 
Versand, bedingt durch die intensive An- 
zeigenwerbung in Fachzeitschriften, zu ei- 
nem wichtigen Vertriebszweig geworden. 
sowohl Endanwender wie auch Händler 
im gesamten Bundesgebiet, Berlin, Öster- 
reich und der Schweiz werden schnell und 
zuverlässig beliefert. 


Für die Zukunft ist geplant, die kommer- 
ziellen Anwender stärker als bisher anzu- 
sprechen. Dazu wird die Produktpalette 
nach oben hin abgerundet und das ge- 
samte Gomputer-Programm für diesen 
Bereich in einer neuen Zweigstelle des 
HIB-Computerladens untergebracht. 
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Erfahrungsbericht OPERATOR | 


von Reiner Hammerschmidt 


Die OPERATOR-Tastatur von AFC 
ist eine ergonomisch flache Tasta- 
tur, die zum Anschluß an verschie- 
dene Rechner geeignet ist. Sie 
enthält neben dem Haupttastenfeld 
mit 62 Tasten 15 weitere Funk- 
tionstasten sowie rechts einen 
Zehnerblock. Alle Tasten — auch 
die programmierbaren — haben Au- 
torepeat, d.h. wird eine Taste län- 
ger gedrückt, wird das entspre- 
chende Zeichen (oder auch meh- 
rere) automatisch wiederholt. 

Der Vorteil dieser auf den ersten 
Blick nicht gerade billigen Tastatur 
(ca. 450,- DM) liegt in der Pro- 
grammierbarkeit von 39 Tasten in 
je 2 Ebenen (normal und Shift). Zu 
den programmierbaren Tasten ge- 
hören die 15 Funktionstasten, der 
Zehnerblock und die 4 im Hauptta- 
stenfeld befindlichen Cursor-Ta- 
sten (!) sowie die Tasten DEL und 
TAB. Ein entscheidender Vorzug 
dieser Tastatur gegenüber ande- 
ren besteht in der Programmier- 
barkeit der Cursor-Tasten, so daß 
man nicht umlernen muß, wenn 
man z.B. einmal mit DOS und das 
andere Mal mit CP/M arbeitet, 
denn die Cursor-Steuerzeichen 
sind nicht überall die gleichen. Da 
aber jede Taste doppelt program- 
miert werden kann, ist es möglich, 
die eine Ebene für DOS und die 
andere für GP/M vorzusehen. Auf 
jeder Taste können beliebige Zei- 
chenfolgen bis zu je 254 Zeichen 
abgelegt werden, allerdings zu- 
sammen nur maximal 2032 Zei- 
chen. Dabei können alle Bytes von 
$00 bis $FF verwendet werden, 
auch wenn beim Apple hard- 
warebedingt nur die Zeichen bis 
$7F erkannt werden, was aber kei- 
ne Einschränkung darstellt, denn 
der ASCII-Code umfaßt ohnehin 
nur 7 Bits. 

Mit dem Haupttastenfeld sind alle 
ASCII-Zeichen von $00 bis $7F mit 
Ausnahme von $60 (einfaches Ab- 
führungszeichen) erzeugbar, was 
man sich jedoch - falls benötigt — 
auf eine programmierbare Taste le- 
gen kann. Ebenfalls in das Haupt- 
tastenfeld integriert ist die Reset- 
Taste, die nur zusammen mit der 
Control-Taste gedrückt ein Reset- 
Signal an den Prozessor abgibt. 
Da die Tastatur universell gehalten 
ist, wird sie mit einem ca. Im lan- 
gen offenen Kabel geliefert (die 
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Tastatur kann sowohl als serielle 
wie auch, am Apple, als parallele 
Peripherie betrieben werden). Zum 
Betrieb muß man sich dann selbst 
um eine Steckverbindung bemü- 
hen, deren Anschluß aber, dank 
der mitgelieferten Dokumentation, 
nicht schwierig ist. Die Dokumen- 
tation selbst umfaßt ca. 20 Seiten 
und beschreibt Anschluß, Bedie- 
nung und Programmierung. Außer- 
dem ist ein Schaltbild enthalten; 
aber leider kein Listing des Be- 
triebsprogramms für die eingebau- 
te CPU 6511. Beim Kauf der OPE- 
RATOR sind alle programmierba- 
ren Tasten mit DOS- und CP/M- 
Befehlen für den Apple belegt. 
Dies läßt sich aber ändern (s.o.). 


Bedienung 


Die Bedienung der Tastatur ist ein- 
fach, die Tasten sind griffig und 
auch die Lage der Cursortasten 
prägt sich schnell ein. Besonders 
gut gelungen ist die große RE- 
TURN-Taste. Als Nachteil muß 
man jedoch die verwirrende Dop- 
pelbeschriftung der Tasten YundZ 
anführen. Wenn man beim Schrei- 
ben auf die Tasten sieht, muß man 
des öfteren Überlegen, ob die an- 
gepeilte Taste nun ein Z oder ein Y 
erzeugt, was ja mittels Lötbrücke 
umschaltbar ist (QWERTZ - 
QWERTY). Auch wenn einmal ein 
anderer am Rechner arbeitet, stellt 
sich jedesmal die Frage: Y oder Z? 
Dies hätte der Hersteller besser 
machen können durch normal be- 
schriftete zusätzliche Tastenkap- 
pen, die dann bei Bedarf umge- 
steckt werden könnten, Eine Nach- 
frage bei AFC zu diesem Problem 
ergab, daß es keine normalen, nur 
mit Y bzw. Z beschriftete Tasten- 
kappen gibt. 

Die Programmierung der Tastatur 
geschieht durch Ablegen der ent- 
sprechenden ASCiIl-Zeichenfol- 
gen in einem EPROM 2716, wel- 
ches dann in einen einzulötenden 
IC-Sockel auf der Tastaturplatine 
einzusetzen ist, Da das Editieren 
der zu programmierenden Befehle 
nicht ganz einfach ist, wurde hierzu 
ein Programm entwickelt, das In- 
teressenten beim Autor gegen Er- 
stattung der Unkosten erhalten 
können. (Zuschriften werden von 
der Peeker-Redaktion weiterge- 
leitet.) 


Fazit 


Zusammenfassend kann nach 
Gmonatigem Gebrauch gesagt 
werden, daß die OPERATOR ihr 
Geld wert ist. Es macht Spaß, an 
der Tastatur zu arbeiten, auch 


wenn es am Anfang schwerfällt, 





Tastatur Operator Ile 


Die OPERATOR Ile 


getestet von Harald Grumser 


Mit der OPERATOR Ile kann nun 
auch der Apple Ile mit einer kom- 
fortableren Tastatur ausgestattet 
werden, die darüber hinaus einige 
weitere Vorzüge gegenüber der 
OPERATOR | aufweist. 

Ein spezielles Interface für den 
(Original-)Apple Ile verbindet die 
Tastatur mit dem Rechner. Dabei 
werden außer der Reset- auch die 
beiden Apfeltasten als Hardware- 
Tasten unterstützt, Die Umschal- 
tung zwischen deutschem und 
amerikanischem Zeichensatz er- 
folgt danach von der Tastatur aus 
(QWERTZ - QWERTY). 

Der Einbau dieses Interfaces auf 
der Mutterplatine (wegen dieser 
Hardware-Tasten kann kein Slot 
benutzt werden) gestaltet sich et- 
was schwierig, da zwei ICs ent- 
nommen und an deren Stelle die 
Interface-Platine eingesetzt wer- 
den muß. 

Da die OPERATOR | bereits be- 
sprochen wurde, soll hier nur auf 
die Änderungen eingegangen 
werden. 


Die Unterschiede zur 
OPERATOR I 


Die neue OPERATOR entspricht 
im wesentlichen ihrer Vorgängerin. 
Um für die Apfeltasten Platz zu 
schaffen, wurde die Cursorsteue- 
rung in das Feld der Funktionsta- 
sten verlegt, wodurch nur noch 13 
zur Verfügung stehen. 


unter den programmierten Tasten 
jeweils direkt diejenige mit dem 
gewünschten Befehl zu finden. 
Das flache Design und das prell- 
freie Arbeiten tun ein übriges. 
Bleibt nur der Nachteil der Doppel- 
beschriftung der Tasten Y undZ. ... 





Als Erweiterungen sind die Mög- 
lichkeiten eines Software-Schlos- 
ses (Password) und eines wählba- 


ren akustischen 
nennen. 

Der wichtigste Unterschied dürfte 
in der freien und stets wiederhol- 
baren Programmierung der Funk- 
tions-, Cursor-, Tab- und Delete- 
Tasten sowie des Arithmetikblocks 
(10er-Block mit Rechenzeichen) 
liegen, die in drei Ebenen (zwei 
Ebenen bei der OPERATOR |) er- 
folgen kann. Dadurch lassen sich 
über 100 eigene Funktionen (maxi- 
mal 14 Zeichen pro Taste) realisie- 
ren. Diese Programmierung ist von 
der Tastatur aus sehr einfach zu 
handhaben und laßt sich jederzeit 
wiederholen, so daß auch im Be- 
trieb „auf die Schnelle" eine eige- 
ne Funktion festgelegt werden 
kann (als zusätzliche Erleichterung 
kann ein ASCII-Wert nun auch he- 
xadezimal eingegeben werden). 
Nach dem Ausschalten des Rech- 
ners bleibt die Programmierung er- 
halten (EEPROM). 

Als sehr vorteilhaft im täglichen 
Gebrauch erweist sich die Mög- 
lichkeit, die drei Ebenen (Unshift, 
Shift und Cirl) zu vertauschen. So- 
mit kann beim Betriebssystem- 
wechsel auch die jeweilige erste 
Ebene gewählt werden; die ge- 
wünschte Funktion (z.B.CATALOG 
unter DOS 3.3, CAT unter ProDOS 
und DIR unter CP/M) wird somit 


Signals zu 
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stets durch einfachen Tastendruck 
ausgelöst. 


OPERATOR als Schnittstelle 


Die Operator I und Ile kann mit 
einem Barcode- oder Magnetkar- 
tenleser ausgestattet werden, Die 
Signale werden automatisch in die 
entsprechenden ASCII-Werte um- 
gewandelt und von der Tastatur an 
den Rechner geschickt. Somit ist 
ohne Programmänderung eine ein- 
fache Umstellung auf eine alterna- 
tive Eingabe möglich. Auch kann 
eine Maus oder ein Roliball ange- 
schlossen werden, deren Bewe- 
gungen in wiederholte Cursorsi- 
gnale verwandelt werden. 





Fazit 


Das bereits zur OPERATOR | Ge- 
sagte gilt auch für die OPERATOR 
Ile. Als kleines Manko bleibt die 
Shift-Lock-Taste zu nennen, deren 
Zustand nicht abgelesen werden 
kann. Ansonsten gibt nicht nur der 
Preis von DM 755,- Anlaß dazu, 
dieses Produkt als einen Mercedes 
unter den Tastaturen zu be- 
zeichnen. 

Anmerkung: Diese Tastatur wird 
auch als OPERATOR II zu einem 
Preis von DM 695,- für Rechner 
mit seriellem oder parallelem An- 
schluß vertrieben. 


Dazzle Draw und Mousepaint 


Erfahrungsbericht von Dieter Charchot 
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Ausdruck von Dazzle Draw 


Dazzle-Draw ist ein Double-Hires- 
Zeichenprogramm für den Apple 
lic bzw. Ile mit 64K-Karte, das von 
der Firma Broderbund produziert 
wird und unter ProDOS läuft. 


Wenn Sie das Vergrößerungsglas 
aus der Grafik zu diesem Artikel 
ein wenig herumschwenkten, dann 
würden Sie ein kleines Nagetier 
sehen, das sich schamhaft in eine 
dunkle Ecke drückt, Es ist wahr- 
scheinlich eine Apple-Maus, und 
der Grund für das Unbehagen des 
sonst recht großspurig daherkom- 
menden Mäuschens dürfte das 
Apple-Programm Mousepaint 
sein, mit dem auch Äpple-Ile-Be- 
sitzer In den Genuß eines von der 
Maus unterstützten  Grafikpro- 
gramms kommen. Wenngleich von 
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DRRLE 







den kreativ nutzbaren Möglichkei- 
ten recht brauchbar, hat es jedoch 
einige unverständliche Mängel, die 
den Spaß an spielerischer Gestal- 
tung relativ schnell und nachhaltig 
verderben. 

So sieht man beim Erstellen der 
Grafiken leider nur einen Teil der 
Gesamtbildfläche. Wer alles sehen 
möchte, muß erst umständlich ma- 
nipulieren. Ist man dann endlich 
fertig, speichert man stolz sein 
Meisterwerk auf Diskette. Leider 
muß man den Dateinamen auf ei- 
nem kleinen Notizzettel vermer- 
ken, denn ein Gatalog-Aufruf ist 
leider nicht möglich. Hat man das 
Zettelchen verlegt oder verloren, 
muß man das Programm verlas- 
sen, um auf der Diskette nach dem 
Rechten zu sehen. 


Was hat dies alles mit der Lupe zu 
tun? Nun, die Mängel dieses „ge- 
mausten“ Programmes werden 
dann unübersehbar, wenn man es 
an einer Älternative messen kann, 
und diese Möglichkeit bietet Dazz- 
le Draw, ein neues Grafikpro- 
gramm von Broderbund. Dieses 
Programm ist ein echtes Double- 
Hires-Programm mit einem hervor- 
ragenden Darstellungsvermögen. 
Neben vielen anderen interessan- 
ten Möglichkeiten kann der „Ap- 
ple-Maler“ z.B. unter 16 Farben 
und 30 Mustern wählen, die darauf 
warten, Grafiken von verblüffender 
Wirkung zu zieren. 


Zuvor bootet man die Systemdis- 
kette, wählt per Menü als Eingabe- 
möglichkeit Maus, Grafiktablett, 
Koala Pad oder Joystick und instal- 
liert schnell noch durch „Anklik- 
ken“ der richtigen Daten in einer 
auf Wunsch angeboten Liste von 
Druckern und Interfacekarten sei- 
ne Konfiguration - fertig! 


Nun kann man sich entscheiden, 
ob man gleich in das Programm 
einsteigen oder zuvor noch eine 
Sicherheitskopie anfertigen möch- 
te. Hier erlauben die Entwickler 
von Broderbund die unproblemati- 
sche Anfertigung einer (und wirk- 
lich nur einer einzigen) Backup- 
Kopie des Programms zu Sicher- 
heitszwecken. 


Anschließend starrt ein jungfräuli- 
cher Bildschirm den Apple-Grafi- 
ker an, nur unterbrochen von einer 
Befehlszeile am oberen (und gele- 
gentlich zusätzlich am unteren) 
Rand. Hier findet man die einzel- 
nen Sparten, die man mit dem Cur- 
sor ansteuern kann. Zur Ehrenret- 
tung der kleinen Maus sei bestä- 
tigt, daß man damit den normaler- 
weise benutzten kleinen Pfeil bes- 
ser und exakter im Griff hat als mit 
dem Joystick. Aber auch hier 
macht Übung den Meister. 


Hat man „getroffen“, bieten sich in 
Form der inzwischen wohl hinläng- 
lich bekannten „Pull-Down-Me- 
nüs” viele weitere Möglichkeiten 
der Bildgestaltung und Manipula- 
tion. So findet man unter dem Fir- 
mensignet der Krone einige 
Grundfunktionen wie z.B. die je- 
derzeit wieder aufrufbare Printer- 
Installation, die Programmende- 
Funktion oder auch eine recht 
nützliche Hilfsfunktion, die den 
Cursorpfeil in ein Fragezeichen 
verwandelt, mit dem man alle Pro- 
grammfunktionen anklicken kann, 
zu denen dann prompt ein Fenster 
mit Kurzinformationen erscheint, 
die dem Benutzer weiterhelfen. So 
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kann man durch das ganze Pro- 
gramm gelangen, ohne das aus- 
führliche Manual studiert zu haben, 
das aber seine Berechtigung durch 
die Vermittlung von Feinheiten und 
Zusatzinformationen hat, 

Hat man seine Neugier durch ei- 
nen ersten Streifzug durch alle Ru- 
briken und Untermenüpunkte erst 
einmal gestilit, kann man seinem 
gestalterischen Drang wirklich 
freien Lauf lassen. Es sind fast kei- 
ne Grenzen gesetzt. Man kann 
Sprühen und Malen. Linien ver- 
schiedenster Ausführungen, 
Rechtecke, Felder, Kreise oder EI- 
lipsen sind kinderleicht. Alle Flä- 
chen können mit Farben oder Mu- 
stern gefüllt werden. Auch nach- 
trägliche Änderungen sind kein 
Problem. Hat man z.B. mit dem 
normalen Programm zum Koala 
Pad eine Fläche mit kleinem Mu- 
ster gefüllt, sind weitere Füllversu- 
che so gut wie hoffnungslos. Nur 
kleinste Stückchen werden bear- 
beitet. Bei Dazzle Draw „schaltet“ 
man diese Schwierigkeiten durch 
eine Zusatzfunktion zu „Fill" ein- 
fach aus. 

Man kann Bildteile ausschneiden, 
drehen, invertieren, kippen, kopie- 
ren, löschen und sogar in selbst 
definierten Ausschnitten oder in 
dem ganzen Bild eine Farbe durch 
eine andere ersetzen oder zwei 
Farben miteinander vertauschen. 
Invertieren funktioniert nicht nur 
bei Schwarzweiß-, sondern auch 
bei Farbbildern. 

Ist ein kleines Mißgeschick pas- 
siert, kann man das Bild retten, 
indem man „Undo“ anklickt. Da- 
durch wird die zuletzt vorgenom- 
mene Änderung rückgängig ge- 
macht und der alte Zustand wie- 
derhergestellt. 

Will man die Qualitäten von Dazzle 
Draw voll auskosten, so sollte man 
über die Möglichkeit der Farbdar- 
stellung, z.B. auf einem Farbfern- 
seher, verfügen. Auf einem mono- 
chromen Monitor werden die Far- 
ben wie gewohnt durch unter- 
schiedliche Schraffuren darge- 
stellt. Das Programm ist dann zwar 
weiterhin benutzbar, aber es er- 
schließt nicht die Wirkung, die un- 
ter Anwendung der Farben erzielt 
wird, 

Eine weitere interessante Option 
stellt der Textmodus dar, in dem 
Beschriftungen in verschiedenen 
Größen und unterschiedlichen 
Schriftarten vorgenommen werden 
können. Sollte der Text nicht auf 
Anhieb sitzen, kann auch hier mit 
der Ausschneide/Einklebe-Metho- 
de nachgeholfen werden. 
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Genauigkeitsfanatiker werden sich 
über das Zoom freuen, das einen 
kleinen Bildauschnitt auf das volle 
Format vergrößert und in einem 
(sogar veränderbaren) Raster die 
Plazierung, Einfärbung oder Lö- 
schung einzelner Punkte möglich 
macht, während ein Ganzbild im 
Miniformat am rechten, unteren 
Bildrand den Überblick bewahrt. 
Überhaupt wird außer dem oberen 
Bildrand, der ja zur Bereitstellung 
der Hauptrubriken benutzt wird, 
auch der untere Bildrand fast im- 
mer beim Aufruf einer Funktion für 
weitere Optionen benutzt. Um das 
Bild auch hier bearbeiten zu kön- 
nen, kann es einfach mit einem 
„Hebel" nach oben oder unten um 
genau diese Streifenbreite ver- 
schoben werden. Ferner wird eine 
raffinierte Spiegelfunktion mit ver- 
schiedenen Symmetrieebenen an- 
geboten, die zu selbstgemalten 
Kaleidoskopbildern verhilft. 

Mit der Slide-Show-Option werden 
ausgewählte Bilder auf der Pro- 
DOS-formatierten Diskette gespei- 
chert, wobei Reihenfolge, Stand- 
dauer und Art des Bildwechsels 
frei definierbar sind - eine faszinie- 
rende Möglichkeit, die Spaß macht 
und auch auf vielerlei Art sinnvoll 
genutzt werden kann. Viele An- 
wender, die z.B. Werbung betrei- 


ben, werden sich über einen sol- 
chen individuell gestaltbaren Blick- 
fang freuen. 


Die Programmierer der Firma Bro- 
derbund haben Ihre Schularbeiten 
gut und gründlich gemacht. Dazzle 
Draw bietet weit mehr Möglichkei- 
ten als Mousepaint. Es läuft auf 
einem Apple IIc oder |le mit 128 K 
Speicher, benötigt keine weitere 
Hardware-Ergänzung (wie z.B. das 
Maus-Interface) und kann z.B. pro- 
blemlos mit einem normalen Joy- 
stick gesteuert werden. 


Die angefertigten Slide-show-Dis- 
ketten sind selbständig lauffähig 
und können unabhängig vom 
Hauptprogramm eingesetzt wer- 
den. Die Anfertigung von an- 
spruchsvollen und hochwertig wir- 
kenden, bildlichen Darstellungen 
sollte auch für den ungeübten An- 
wender kein Problem darstellen, 


Ein weiterer Pluspunkt dürfte der 
erstaunlich niedrige Preis sein. Für 
nur ca. DM 160,- ist das Programm 
mit Manual bei einschlägigen Im- 
porteuren erhältlich. Broderbund 
beschreitet hier einen (längst fälli- 
gen) Weg, der durch das Angebot 
von außerordentlich attraktiven 
Programmen zu vernünftigen Prei- 
sen den Raubkopierern das Ge- 
schäft verderben dürfte. 


DMP-Charger - eigene Zeichensätze 
auf dem Matrixdrucker 


getestet von Harald Grumser 


Einer der wesentlichsten Vorteile 
von Matrixdruckern gegenüber 
Schönschreibdruckern ist die 
Möglichkeit der Grafikausgabe und 
der Erstellung eigener Zeichensät- 
ze. Wer dieses Problem beim 
Imagewriter in Angriff nehmen 
wollte, wurde durch die spärliche 
Dokumentierung und die z.T. feh- 
lerhaften Angaben im Drucker- 
handbuch jäh enttäuscht. 

Die Firma Hunstig, Labor für Nach- 
richtentechnik, vertreibt ein Pro- 
gramm, mit dessen Hilfe eigene 
Zeichensätze erstellt werden kön- 
nen, um dann in Änwenderpro- 
grammen (Appleworks, Apple- 
writter, Wordstar...) oder eigenen 
Programmen eingesetzt zu wer- 
den. 


Arbeitsweise 

Der DMP-Charger (Dot Matrix 
Printer CHARacter GEneratoR) 
nutzt die Möglichkeit aus, eigene 
Zeichensätze in den Druckerpuffer 
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zu laden und diese dann bei Bedarf 
zu aktivieren. Dabei kann die Äuf- 
lösung dieser neuen Zeichen 
durch entsprechende Anordnung 
verdoppelt werden, so daß „Mac- 
Like Zeichen“ (Bezeichnung der 
Firma Hunstig) entstehen können. 
Das hier vorgestellte Programm 
übernimmt nun die Übertragung 
dieses neuen Zeichensatzes und 
bietet neben einigen mitgelieferten 
Zeichensätzen einen komfortablen 
Editor, mit dessen Hilfe neue Zei- 
chen erstellt oder alte Zeichen ge- 
ändert werden können. 


Bedienung 

Nach dem Booten der Pascal-1.2- 
Diskette (das Pascal-Betriebssy- 
stem ist nicht erforderlich) er- 
scheint ein Menü, das den kom- 
pletten Ablauf regelt und den Be- 
nutzer sicher ans Ziel führt. Beim 
erstmaligen Gebrauch muß der 
Druckertyp festgelegt werden, was 


später nicht mehr geändert werden 
kann (sollte nur auf einer Disket- 
tenkopie erfolgen). Wenn kein 
neuer Zeichensatz erstellt werden 
soll, genügt das Laden eines be- 
reits vorhandenen, der auch sofort 
aktiviert werden kann. 


Im anderen Fall wählt man den Edi- 
tor, um neue Zeichen Punkt für 
Punkt zu erstellen oder einzelne 
Zeichen zu ändern, wobei die 
Möglichkeit des Mischens die Fle- 
xibilität erheblich vergrößert. Der 
so neu gewonnene Font kann dann 
auf Diskette gespeichert werden. 
Nach Beendigung der Arbeit ver- 
läßt man das Menü und bootet das 
gewünschte Betriebssystem oder 
Programm. Danach stehen die 
neuen Zeichen auf dem Drucker 
zur Verfügung (der natürlich nicht 
ausgeschaltet werden darf). 

Die Umschaltung erfolgt dann 
druckerspezifisch (zB. „ESC 
CHR$(39)“ zur Aktivierung des al- 
ternativen Zeichensatzes beim 
Imagewriter). 


Beschreibung 

Das ca. S0 Seiten umfassende, ge- 
druckte Handuch (Ringbuch) ent- 
hält im wesentlichen alle Hinweise, 
die beim Gebrauch des DMP- 
Charger unter den verschiedenen 
Sprachen und Änwenderprogram- 
men von Interesse sind. (Ap- 
pleworks kann durch einen zu 
wählenden Patch derart angepaßt 
werden, daß die Unterstreichung 
das Umschalten auf den eigenen 
Zeichensatz bewirkt.) Mit etwas 
Experimentierfreude — die Voraus- 
setzung jeder dauerhaft erfolgrei- 
chen Arbeit mit Druckern — bereitet 
die Einarbeitung keine Schwierig- 
keiten. 


Fazit 

Der nicht gerade geringe Preis von 
DM 198,- läßt erkennen, daß der 
DMP-Charger vorwiegend für den 
kommerziellen Bereich konzipiert 
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DMP-Charger-Beispiel 


wurde. In diesem Sinne ist seine 
Handhabung durchaus gerechtfer- 
tigt. Für den ausgesprochenen 
Selbsprogrammierer dürfte der 
„Stand-alone"-Charakter des Pro- 
gramms mit leichten Äbsirichen an 
seine Verwendbarkeit verbunden 
sein. Wünschenswert wäre hier die 
Möglichkeit der Einbindung in 
Turnkey-Systeme und die Übertra- 
gung der Zeichensatz-Files in an- 
dere Betriebssysteme. 


Apple Ilflle Assembler-Kurs 


getestet von Dr. Jürgen B. Kehrel 


Wer den richtigen Zugang zu 
6502-Assembler findet, für den ist 
die Maschinensprache schon bald 
kein Buch mit sieben Siegeln 
mehr, schon gar nicht ein zu fürch- 
tendes Zahlenungeheuer. Mit dem 
Assembler-Kurs (1984, 240 S., 
Sybex-Verlag, mit Diskette DM 
64,-) wird jetzt ein Lehrgang vor- 
gelegt, der den direkten Einstieg 


wagt. Damit bietet es eine Älterna- 
tive zum Buch „Apple Maschinen- 
sprache" (Te-Wi Verlag), das auf- 
bauend auf Basic-Kenntnissen in 
die Tiefen des Apple vordringt. 

Da der Apple mit dem Mini-As- 
sembler als Teil des Integer-Basic 
nur sehr bescheidene Möglichkei- 
ten bietet, gehört zum Buch ein 
„richtiger“ Assembler, der symbo- 
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lische Bezeichnungen (Labels) für 
Sprungstellen erlaubt, Makros zu- 
läßt und im Dezimalformat disas- 
sembliert. Laden und Speichern 
sind ebenso möglich wie ein Ver- 
schieben des Codes. 

Was mich etwas gestört hat ist, daß 
Labels mit „Label Adresse" festen 
Speicherplätzen zugeordnet wer- 
den, während alle anderen mir be- 
kannten Assembler „Label EQU 
Adresse” benutzen. Lokale Labels 
werden mit „xLabel Opcode 
Adresse” definiert. Demgegen- 
über benutzen alle anderen den 
Stern als Kennzeichen für eine 
Kommentarzeile. Das erschwert 
unnötig den späteren Übergang 
auf große Ässembler. 

Ein einmal eingegebenes Pro- 
gramm kann mit seinen Labels 
nicht mehr ausgelistet werden, und 
auch der Editierkomfort ist minimal. 
Der in Applesoft geschriebene As- 
sembler läßt nur 20 Labels, 20 
symbolische Sprungadressen und 
10 Makros zu, was allenfalls für 
kleinere Vorhaben reicht. Der vom 
Programm und seinen Variablen 
belegte Speicherplatz ist nicht ge- 
schützt. Wenn Sie also z.B, mit 
einer Startadresse von $0800 as- 
semblieren, überschreibt sich der 
Assembler selbst. Sie sollten also 
(für so wenig Geld) keinen ausge- 
wachsenen Assembler wie Merlin 
oder Lisa erwarten, aber für den 
Einstieg ist das Programm durch- 
aus ausreichend. 

Das Buch ist, wie eigentlich immer 
bei Sybex, typografisch sauber 
hergestellt und fast fehlerfrei. Nur 
auf S. 49 muß es „Null-Flag Z" 
statt „Übertrags-Flag C" heißen, 
CHKCOM (S. 223) prüft auf Kom- 
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ma, nicht auf „<“ , und in der 
Aufstellung auf S. 206 fehlt der 
Befehl BCS unter BCC. 

Inhaltlich sollte für eine straffere 
Ordnung gesorgt werden. Die vor- 
liegende 1. Auflage hat unmotivier- 
te Vorgriffe (NOP wird auf S. 62/63 
benutzt, aber erst auf S. 70 einge- 
führt, ebenso ergeht es CLC und 
CLD), unnötige Wiederholungen 
(STA wird auf S. 10 und S. 12 mit 
geringer Variation erklärt) und un- 
gerechtfertigte Kapiteleinteilungen 
(Kapitel 8 behandelt so grundver- 
schiedene Dinge wie Interrupts, 
Breaks, Vorzeichen und Fließkom- 
mazahlen). 

Der Leser sollte Basic kennen, He- 
xadezimalzahlen brauchen ihm 
aber nicht geläufig zu sein. Ein 
Trainingsprogrammm für das Ein- 
üben der wichtigsten Zahlenum- 
wandlungen wird auf der Diskette 
mitgeliefert. Für die fortgeschritte- 
nere Programmierung sind in ei- 
nem Anhang einige Einsprungstel- 
len in den Applesoftinterpreter und 
den Monitor aufgeführt, allerdings 
oft mit spartanischen Angaben. 
„HPLOT F453: ruft HPOSN auf 
und zeichnet einen Punkt“ oder 
„COPY DAB7: String zeitweise 
freisetzen" dürften nur erfahrenen 
Programmierern genügend Infor- 
mation geben, 

Trotz der beschriebenen Mängel 
ist die Einheit aus Buch und As- 
sembler, die Lernen durch prakti- 
sches Nachvollziehen am Gerät 
ermöglicht, ein erfolgversprechen- 
der Weg zu einer für den Anfänger 
nicht ganz einfachen Sprache, die 
aber für viele Anwendungen (z.B. 
schnelle Steuerungen, bewegte 
Grafiken) unerläßlich ist. 


Deutsche Sprachausgabe 
für den Apple getestet von Harald Grumser 


Die Ausgabe erfolgt beim Rechner 
i. allg. auf Bildschirm oder Drucker. 
In interaktiven Programmen kön- 
nen Änweisungen an den Benut- 
zer oft nicht auf dem Bildschirm 
ausgegeben werden. Auch ist der 
Vergleich von Zahlenkolonnen 
oder Texten zwischen Papier und 
Bildschirm eine unangenehme Tä- 
tigkeit. Hier kann eine akustische 
Ausgabe nützlich sein, wie sie von 
der Firma Marco Bönig angeboten 
wird. Der Apple wird mit dieser 
kleinen Sprachkarte, die vorzugs- 
weise in Slot 4 steckt, in die Lage 
versetzt, deutsche Texte zu spre- 
chen. 
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Mit Hilfe der mitgelieferten Pro- 
gramme können deutsche Texte 
direkt zur Ausgabe gebracht wer- 
den, wodurch sich mit minimalem 
Aufwand eigene Vorleseprogram- 
me schreiben lassen. Die Umset- 
zung in die einzelnen Phone er- 
folgt automatisch, so daß ein String 
mit deutschen Wörtern an das 
Sprachprogramm übergeben wer- 
den kann, ohne daß man sich über 
die Lautschrift Gedanken zu ma- 
chen braucht. Die Wörter sind er- 
staunlicherweise recht gut ver- 
ständlich. Darüber hinaus erkennt 
das Programm einzelne Buchsta- 
ben und spricht diese wie im Äl- 


phabet (Y = ypsilon). Auch einzel- 
ne Zeichen und Zahlen werden er- 
kannt und durch die entsprechen- 
den Wörter ersetzt (« = mal, 3 = 
drei), 

Wer auf eine höhere Sprachqualität 
Wert legt, kann die Lautfolgen auch 
phonetisch umschreiben. Dieses 
Verfahren bietet sich an, wenn ge- 
sprochene Befehle in eigene Pro- 
gramme aufgenommen werden 
sollen und sich der größere Auf- 
wand für die Erstellung lohnt. 


Deutsch treten mitunter recht lan- 
ge Sprechpausen auf, so daß für 
längere Sätze die Lautschrift her- 
angezogen werden sollte. Einen 
Anhaltspunkt für diese Schreibwel- 
se liefert die Möglichkeit, Strings 
nach ihrer Eingabe im „phoneti- 
schen Alphabet“ auszugeben. Et- 
was ärgerlich erscheint die Tatsa- 
che, daß die Ausgabe nicht durch 
Reset abzubrechen ist; man muß 
den Computer also stets ausreden 
lassen. (Dieses „Hängen“ nach 





Bönig Sprachausgabe 


Durch Verwendung dieser „Laut- 
schrift“ — das Programm kennt 24 
Phone mit jeweils 10 Tonhöhen, 10 
Sprechgeschwindigkeiten und 10 
Lautstärken - ist es auch möglich, 
z.B. englische Wörter auszugeben 
oder die Intonation derart zu ge- 
stalten, daß Fragesätze an der Be- 
tonung erkannt werden (heben der 
Stimme am Satzende). Auch wird 
die Betonung einzelner Vokale un- 
terstützt, ohne alle Sprechparame- 
ter angeben zu müssen. Mit etwas 
Übung (und Mut zur Technik) kann 
so der Apple jeden feierlichen An- 
laß mit einem Gedicht verschö- 
nern. 


Als Manko erscheint auf den er- 
sten Blick der geringe Umfang an 
Lauten. Die Praxis zeigt jedoch, 
daß fast alle Wörter bei entspre- 
chender Umschreibung verständ- 
lich werden. Bei Umsetzung von 
Schriftdeutsch in gesprochenes 


Reset kann durch POKE 49254 + 
SLOT # 16, 255 unterbrochen 
werden.) 


Anmerkung zur Lautschrift: Die In- 
ternationale Lautschrift (Alphabet 
der API) weist 57 Phone aus. Da- 
von treten ca. 10 Laute nicht in 
deutschen Wörtern auf. Der Phon- 
Schatz eines Sprachprozessors ist 
nicht identisch mit diesen Lauten 
(der hier verwendete kennt 64 
Laute). 


Fazit: Die Sprachqualität dieser 
Karte überrascht durch ihren deut- 
schen Akzent. Die mitgelieferte 
Software ermöglicht einen pro- 
blemlosen Einbau in eigene Pro- 
gramme, wobei die Umsetzung 
von geschriebenem Wort in ge- 
sprochenen Laut geglückt ist. 

Mit einem Preis von DM 244.- tritt 
sie nicht nur qualitativ in Konkur- 
renz zu teureren Sprachkarten. 


Lerne zu pieken 


ohne zu quieken! 
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Kurzberichte 


(Gekürzte Firmenmitteilungen) 


512K für Apple Ill 

Ab sofort können alle Apple-Il-Anwen- 
der ihren Rechner auf die maximale Ka- 
pazität von 512K aufrüsten, Bei beste- 
henden 256K-Rechnern wird das vor- 
handene Erweiterungsboard einfach 
gegen die neue Karte ausgetauscht, oh- 
ne daß ein Slot benötigt wird. Die Mon- 
tage ist so einfach, daß dafür kein Händ- 
ler hinzugezogen werden muß, Ledig- 
lich bei bestehenden 128K-Rechnern 
muß der Einbau von einem Apple- 
Händler durchgeführt werden, Alle 
SOS-Programme mit dynamischem 
Speicherzugriff (Applewriter Version 1.0 
also nicht) nutzen den neuen Speicher- 
platz vollständig. Die Speichererweite- 
rung ist zu einem Preis von ca, DM 
3200,- bei Dipro-Software erhältlich. 
Quelle: Dipro-Software, Pulheim 


Apple lie-Emulation für Apple Ill 

Mit einer neuen Interfacekarte für den 
Apple Ill ist es möglich, Apple-Ille-Pro- 
gramme mit einem Speicherbedarf von 
64K und mehr auf dem Apple Ill zu 
betreiben, Die Karte ist mit der Langu- 
age-Card software-kompatibel und ent- 
hält gleichzeitig einen Game-Port zum 
Anschluß von Joysticks oder Paddles. 
Versionen mit 16, 64 oder 128K sind 
lieferbar. Damit stehen im Emulation- 
Mode maximal 176K über Bank-Swit- 
ching zur Verfügung. Ebenfalls kann 
das ProDOS-Betriebssystem gefahren 
werden, 

Quelle: Dipro-Software, Pulheim 


Lisa/Mac-Screenswitcher 

Apple stellt die Produktion des Macin- 
tosh XL (Lisa) im Herbst 85 ein, Den 
Lisa-Besitzern wird empfohlen, ab so- 
fort die Macintosh-Emulation „Mac- 
works“ als Betriebssystem zu benut- 
zen. Das Problem dabei ist, daß Lisa 
rechteckige Bildschirmpunkte verwen- 
det, Macintosh dagegen quadratische. 
Die auftretende vertikale Verzerrung 
des Bildschirms im „Macworks"-Modus 
wird durch den Lisa/Mac-Screenswit- 
cher verhindert. Durch einfaches Um- 
schalten wechselt das Bildschirmformat 
von Lisa auf Macintosh. Sowohl die Li- 
sa- als auch die Macintosh-Software 
kann weiterhin problemlos benutzt wer- 
den. Der Lisa/Mac-Screenswitcher ist 
so konzipiert, daß keine äußerlichen 
Veränderungen an der Lisa nötig sind. 
Quelle: Pythia GmbH, München 


640K-Drive für IIc 

Viele Anwendungen im kommerziellen 
Bereich lassen sich mit einem Apple Ilc 
gut abwickeln. Mit dem Essen kommt 
jedoch der Appetit- und die Erkenntnis, 
daß sich mit dem eingebauten 140K- 
Drive der Apple Ilc nicht seiner Lei- 
stungsfähigkeit entsprechend einsetzen 
läßt. Nun ist es endlich möglich, in Ver- 
bindung mit dem Apple IIc größere 
Laufwerke zu verwenden. Es stehen 
dem Anwender zusätzlich 640K (neben 
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dem eingebauten Laufwerk) zur Verfü- 
gung, 640K deshalb, weil das zusätzli- 
che Drive zwei Schreib/Leseköpfe be- 
sitzt und so zwei Diskettenseiten lesen 
bzw. schreiben kann. Leider können 
diese beiden Diskettenseiten nicht oh- 
ne weiteres als ein einziges Volume 
verwaltet werden, Das resultiert aus den 
fehlenden Signalleitungen im Apple-IIc- 
Stecker, die zur Umschaltung benötigt 
werden. Um trotzdem die Rückseite der 
Diskette nutzen zu können, wurde eine 
Schaltung entworfen, welche zwischen 
Hauptplatine und CPU eingesetzt wird, 
Außerdem läßt sich das Laufwerk auch 
auf 40 bzw. 35 Spuren umschalten, um 
es als „normales“ Drive zu benutzen 
(nur das 5.25-Zoll-Drive). Ein menüge- 
steuertes Installationsprogramm er- 
möglicht auf einfachste Weise das Mo- 
difizieren der drei häufigsten Betriebs- 
systeme (DOS 3.3, ProDOS und 
UCSD-Pascal), um die Zusammenar- 
beit dieser bis jetzt ungewöhnlichen 
Laufwerkskombination zu gewährlei- 
sten. Eine Anpassung für die CP/M- 
Erweiterung ist in Vorbereitung. Gelie- 
fert werden ein Teac FD 55F (5,25 Zoll) 
bzw. ein Teac FD 35F (3,5 Zoll) im 
Gehäuse inkl. Anschlußkabel, Zusatz- 
platine und einer „Patchdiskette“, wo- 
mit die Betriebssysteme DOS 3.3, 
UCSD-Pascal und ProDOS angepaßt 
werden müssen. 

Quelle: ccp Datentechnik, Hamburg 


Apple-Paketpreise 

Preisgünstige Mikrocomputer-Pakete, 
die sich ohne zusätzliche Zubehörkäufe 
sofort kommerziell einsetzen lassen, 
bietet die Apple Computer GmbH. Ab 
dem 1. Juli 1985 haben die rund 300 
Apple-Fachhändler sechs Systemkonfi- 
gurationen im Programm, die ein- 
schließlich professioneller Software im 
Preis etwa 15% günstiger sind, Das Ap- 
ple IIc „Profi-Paket“ kostet 5990,- DM 
und umfaßt das Apple-IIic-System, den 
Apple-Ilc-Monitor, den Apple-lic-Moni- 
torstand und ein externes Laufwerk. Als 
Software ist das integrierte Programm 
„Appleworks" mitverpackt, das Tabel- 
lenkalkulation, Textverarbeitung und 
Datenbank umfaßt. Das Apple Ile „Pro- 
fi-Paket 128K" kostet 6990,- DM und 
umfaßt den Apple Ile 128K mit 80-Zei- 
chendarstellung, einen Apple-Ile-Moni- 
tor und das Apple-Duodisk-Laufwerk. 
Als Software ist das derzeit meistver- 
kaufte integrierte Software-Programm in 
den USA, „Appleworks", mitverpackt. 
Quelle: Apple-Händler 


Apple-Geschichte 

Apple USA 

1977: Steven P. Jobs (21) und Stephan 
G. Wozniak (26) gründen die Firma Ap- 
ple Computers Inc. Auf der West- 
Coast-Computermesse in San Francis- 
co wird der Apple Il vorgestellt. 

1980: Apple baut in Cork/Irland eine 
Fabrikation für den Apple Il, Von hier 


aus wird der europäische Markt belie- 
fert. Eine weitere Fabrik wird in diesem 
Jahr in Dallas/Texas in Betrieb ge- 
nommen. 

1981: Apple eröffnet in München das 
deutsche Tochterunternehmen. Zehn 
Mitarbeiter zählt Apple Deutschland bei 
seiner Gründung. Weitere Apple-Töch- 
ter gibt es in Großbritannien, Frankreich 
und Italien. Die europäischen Aktivitä- 
ten werden vom Pariser Vorort Neuilly 
aus koordiniert. Die Apple-Produktion in 
Singapur wird aufgenommen. 

1982: Apple gelingt der Eintritt in den 
Club der 500 führenden Unternehmen 
der USA, 

1983: Der 1.000.000ste Apple verläßt 
das Werk in Dallas. Im Juni tritt John 
Sculley (45) seinen Posten als Präsi- 
dent von Apple an, Der erfahrene Mar- 
ketingprofi Sculley kommt aus dem 
Pepsi-Cola-Management. Steven P. 
Jobs übernimmt in der Firmenleitung 
den Aufsichtsratsvorsitz. Apple stellt als 
neue Produkte die Lisa (später umbe- 
nannt in Macintosh XL) und den Apple 
IIl vor. Tochterfirmen in Japan und Aus- 
tralien werden gegründet. 

1984: Apple erreicht im Geschäftsjahr 
1983/84 einen Umsatz von über 1,5 
Mrd. US-Dollar (etwa 4,6 Mrd. DM). Ap- 
ple stellt im Januar den Macintosh vor, 
der in weniger als 100 Tagen zum dfrit- 
ten Meilenstein der Personal-Compu- 
ter-Geschichte wird. Der Apple Ilc wird 
in San Francisco 4,500 Journalisten, 
Händlern und Mitarbeitern vorgestellt. 
Die Präsentation wird via Satellit in an- 
dere Apple-Niederlassungen übertra- 
gen. 4.750 Beschäftigte arbeiten welt- 
weit für Apple, Monatlich verlassen 
120.000 Apple-Computer die Produk- 
tionsstätten, 

Insgesamt werden im Geschäftsjahr 
1983/84 1,2 Mio. Apple-Systeme ver- 
kauft. 

1985: Im Januar kündigen Apple und 
Linotype in Frankfurt die Zusammenar- 
beit mit dem Ziel an, daß im Macintosh 
eingegebene Texte und Grafiken auf 
dem Laserbelichter von Linotype in eine 
Druckvorlage umgesetzt werden kön- 
nen. Die technischen Voraussetzungen 
dazu sollen in der zweiten Jahreshälfte 
1985 verfügbar sein. Damit bekommt 
der Macintosh von Apple bald eine zu- 
sätzliche Aufgabe im modernen Büro. 
Apple Deutschland 

1981: Die deutsche Apple-Tochter in 
München nimmt mit zehn Mitarbeitern 
die Arbeit auf, Es ist die dritte europäi- 
sche Niederlassung des amerikani- 
schen Unternehmens. 

1934: Ralph M. Deja (42) übernimmt 
den Posten als deutscher Geschäfts- 
führer von Apple. Die mittlerweile 90 
Mitarbeiter beziehen die neue Münche- 
ner Apple-Zenirale an der Ingolstädter 
Straße. Fünf regionale Niederlassungen 
in Hamburg, Düsseldorf, Frankfurt, 
Stuttgart und München haben die Auf- 
gabe, das Händlernetz zu betreuen. 
Über 300 Fachhändler vertreiben Ap- 
ple-Computer in Deutschland. 

1985: Stephan G. Wozniak verläßt Ap- 
ple, Steven P. Jobs tritt vom Maeintosh- 


Vorsitz zurück, Aufhebung der Firmen- 
spaltung Maeintosh-Apple Il, weltweite 
Personalreduzierung um über 20%, in 
den USA um über 1500 Mitarbeiter, in 
Deutschland auf 56 Mitarbeiter, Ein- 
schränkung der regionalen Niederlas- 
sungen, Beginn der Reorganisation und 
Konsolidierung. 

Quelle (außer dem letzten Absatz): Ap- 
ple Computer GmbH, München 


Mactablet 





Das Mactablet ist ein Digitalisiergerät, 
speziell entwickelt für den Macintosh. 
Das Mactablet hat eine aktive Fläche 
von 152 x 228 mm. Durch die neuartige 
elektromagnetische Technik ist es mög- 
lich, eine Auflösung von bis zu 20 Li- 
nien/mm zu erreichen. Die maximale 
Vorlagenstärke kann bis zu 12 mm be- 
tragen. Geliefert wird das Mactablet mit 
einer Stromversorgung, Abtaststift, 
deutscher Bedienungsanleitung und ei- 
ner Installationssoftware-Diskette. Die 
mitgelieferte Software ermöglicht es, 
das Mactablet für jede Macintosh-Soft- 
ware als „Desk Accessory“ zu installie- 
ren. Das Datenkabel des Mactablet wird 
in den Printer- oder Modem-Port des 
Apple Macintosh eingesteckt. Daraus 
ergibt sich die Möglichkeit, Maus und 
Mactablet je nach Anwendung zu be- 
nutzen, Das flache Kunststoffgehäuse 
ist mit einer Schrägstellvorrichtung ver- 
sehen. Als Abtastvorrichtung kann au- 
Ber dem Stift auch ein Cursor verwen- 
det werden, der ein präzises Übertra- 
gen von technischen Unterlagen er- 
ieichtert. Für freies Zeichnen, z.B. in 
Verbindung mit Macpaint, ist der Stift 
das ideale Werkzeug. Mit dem Macta- 
blet von Summagraphics kann man 
endlich alle grafischen Möglichkeiten 
des Macintosh nutzen. 

Quelle: Summagraphics, München 


Macpack 

Macpack ist ein neues Programm im 
Macintosh-Design zur schnellen und 
komfortablen Abwicklung des Paketver- 
sands mit dem United Parcel Service für 
Unternehmen mit mittlerem bis großem 
Paketvolumen. Durch die Wahl des 
Macintosh ist das Programm besonders 
leicht zu erlernen und zu bedienen, Der 
geringe Platzbedarf des kompletten 
Rechnersystems erlaubt den Einsatz 
auch unter räumlich beengten Bedin- 
gungen. Das robuste Gerät ist ideal für 
den Einsatz im Lager geeignet. 

Quelle: Format Software GmbH, Köln 


Incircuit-Emulator 

Die Incircuit-Emulatorkarie EMU macht 
aus einem Apple Ii Plus oder kompati- 
blen Rechner ein preisgünstiges Hard- 
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ware- und Software-Entwicklungssy- 
stem für die 6502-CPU. In Verbindung 
mit einem guten Assembler und Debug- 
ger lassen sich selbst größere Hard- 
ware-Entwicklungen durchführen, wenn 
kleine Einschränkungen in Kauf genom- 
men werden (ein Lade- und ein Spei- 
cherbefehl bei Überschreiten einer 2K- 
seite). Der geübte 6502-Assemblerpro- 
grammierer wird nach kurzer Zeit mit 
dem Emulator zurechtkommen. 

Prinzip: 

Durch Erseizen der CPU im Zielsystem 
durch den 40-poligen DIL-Stecker des 
Emulators wird das Zielsystem mit dem 
Apple verbunden. In das Zeigerregister 
wird derjenige 2K-Bereich des Zielsy- 
stems eingeschrieben, der angespro- 
chen werden soll. Durch das „2K-Fen- 
ster“ des Apple ($C800-$CFFF) ist das 
Zielsystem ansprechbar, Es kann mit 
Interrupts gearbeitet werden, wenn im 
Apple in die Adressen $0O3FE das Low- 
Byte und in $03FF das High-Byte der 
Adresse der Interruptroutine geschrie- 
ben ist. Das auszuführende Programm 
wird im Apple abgelegt (z.B. ab $0803),. 
Quelle: Gerhard Brecht, Stuttgart 





Erno Unibox 

Kompaktes Disketten-Aufbewahrungs- 
und Archivsystem mit direktem Zugriff 
auf bis zu 80 Disketten im 5.25-Zoll- 
Format; 8 weit aufklappbare, staubge- 
schützte Abteile; im aufgeklappten Zu- 
stand kein größerer Raumbedarf erfor- 
derlich; komplett mit Archivierungseti- 
ketten; hochwertiger Kunststoff mit An- 
ti-Statik-Behandlung; Sockelfarbe com- 
puterbeige; Abteilfarbe in braun-rauch- 
glas als Lichtschutz; Kompaktmaße: L 
257xB173xH 143 mm, 

Quelle: Erno-Photo GmbH, Albbruck 
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Apple-Kompatibler MK II 
Kurzbeschreibung in Stichworten: 

— Apple-kompatibler Rechner mit BA- 
SIC im ROM, 

— 8 Erweiterungssteckplätze. Steckplatz 
6 enthält den Floppy-Controller. 

— 2 Disketten-Laufwerke sind einge- 
baut. Gegen Aufpreis Controller + Dis- 
kettenstationen 640K möglich. 

— Formschönes 19"-Gehäuse beige/ 
braun, 

— Abgesetzte Preh-Tastatur AK87 mit 
Zehner-Block; gleiche Gehäusefarbe. 
— Auf der Rückseite des Rechnergehäu- 
ses sind Ausbrüche für Steckverbin- 
dungen vorgesehen, 2 geschaltete 
Schukosteckdosen für den Anschluß 
von Monitor und Drucker sind bereits 
eingebaut. 

— Drucker-Interface in Steckplatz 1 (gra- 
fikfähig). 

— 16K-Karte. 

-— Prozessor-Karte mit Z80 gegen Auf- 
preis (Original Microsoft-Karte mit CP/ 
M-Betriebssystem, MBasic usw.), 

— 80-Zeichen-Bildschirmdarsteilung mit 
Software-Umschaltung auf Grafik und 
40 Zeichen. Zwei programmierbare Hel- 
ligkeiten (Hilite/Lolite), deutscher Zei- 
chensatz, Block- und Linien-Grafik. 

— Monitor mit 22 MHz Bandbreite, bern- 
stein. 

Quelle: Ewald Balfer, Krombach 
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20M-Festplatte für Mac 

Ab Herbst dieses Jahres wird der Mac- 
intosh 512K mit einer externen 20M- 
Festplatte geliefert, Wie die Apple Com- 
puter Inc. ankündigt, erweitert die neue 
Macintosh-Konfiguration das modular 
aufgebaute „Macintosh Office“ nach 
oben. Die neue Festplatte ist für den 
Macintosh als individueller Arbeitsplatz 
entwickelt worden und kann 50mal 
mehr Daten speichern als eine 400K- 
Floppy-Disk, Die externe ZOM-Fesiplat- 
te ergänzt den auf der Hannover-Messe 
in diesem Jahr angekündigten File-Ser- 
ver, der innerhalb des neuen Apple- 
Netzwerks „Appletalk“ ein Hauptele- 
ment für den Multiuser-Betrieb des 
„Macintosh Office" ist. 

Quelle: Apple Computer GmbH, Mün- 
chen 


Appletalk für Macintosh 

Appletalk heißt das neue Netzwerk von 
Apple, das Computer und Peripherie zu 
einem elektronischen Büro zusammen- 
fügt. Über Appletalk können bis zu 32 
Macintosh-Benutzer untereinander 
kommunizieren. Mit Appletalk können 
ste auch mit Anwendern anderer Perso- 
nalcomputer und mit der Groß-EDV 
kommunizieren, Appletalk ist ein kom- 
plexes, steckfertiges Netzwerk, das die 
Teamarbeit in Büros unterstützt. Es ko- 
stet rund 200,- DM pro Verbindung. 
Technische Stichworte 

Elemente: Anschlußkabel mit An- 
schlußbox, 2m Verbindungskabel, End- 
loskabel für lose Verlegung; 
Anschlußkapazität: bis zu 32 Geräte; 
Entfernung: bis zu 300m; 
Übertragungskapazität: 230 Kilobits/s; 
Standard: Offener Allzweck-Standard 
(ISO), alle Ebenen dokumeniiert; 
Kompatibilität: Gateways zu SNA und 
Ethernet. 

Quelle: Apple Computer GmbH, Mün- 
chen 


Apple-Schul-Programm AULA 

Ein weiteres Sonderprogramm hat die 
Apple Computer GmbH, München, für 
den Ausbildungsbereich eingeführt, um 
die starke Position in diesem Sektor 
auszubauen. Das neue AULA-Pro- 
gramm richtet sich an die Sekundarstu- 
fen I und || aller öffentlichen und staat- 
lich anerkannten Schulen. In Koopera- 
tion mit seinen autorisierten Fachhänd- 
lern bietet Apple den jeweiligen Schul- 
trägern bestimmte System-Pakete ab 
einer Mindestabnahmemenge von 5 
bzw. 9 Konfigurationen zu Sonderprei- 
sen. Das AULA-Programm umfaßt die 
Appie-Il-Familie sowie den Macintosh 
128K. In Verbindung mit einer Hard- 
ware-Bestellung kann Apple-Schul- 
Software zu Sonderpreisen geliefert 
werden. 

Quelle: Apple Computer GmbH, Mün- 
chen 


Laserwriter von Apple 

Laserwriter heißt das neue Flaggschiff 
unter den Apple-Peripherie-Geräten, 
das sich mit seinen multifunktionalen 
Leistungsmerkmalen deutlich aus der 
allgemeinen Druckerwelt hervorhebt, 
Eingebaute Zeichensätze geben dem 
Anwender den Vorteil, Zeichen und 
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Grafik in Laser-Auflösung zu erhalten 
und zu mischen, Die Qualität kommt der 
von Satzmaschinen nahe und ergibt 
sich aus der ungewöhnlich hohen Auf- 
lösung von 300 gegenüber 70 dpi bei 
„Normaldruckern", (Vergleiche hierzu 
Peeker, 7/85, S. 61: Lichtsatzanlagen 
haben über 1000 dpi.) 

Verschiedene Schrifttypen bieten die 
uneingeschränkte Möglichkeit, Formu- 
lare, Berichte, Geschäftsgrafiken und 
sogar Präsentationsfolien selbst zu er- 
stellen, 

Erreicht werden diese vielfältigen Lei- 
stungsmerkmale durch einen eingebau- 
ten Mikrocomputer mit 68000-Prozes- 
sor, 1,5M RAM und 0,5M ROM. Natür- 
lich ist sämtliche Apple-Macintosh-Soft- 
ware kompatibel mit dem Laserwriter, 
so daß z.B. professionelle Software-Pa- 
kete wie Jazz von Lotus oder die Soft- 
ware-Serien von Microsoft genutzt wer- 
den können. Preis ca. DM 27,500,-. 
Quelle: Apple Computer GmbH, Mün- 
chen 


Design-Preise für Apple lic 

Gekrönt wurde der Markterfolg des Ap- 
ple Ic jetzt durch die zweifache Design- 
Auszeichnung „if Die gute Industrie- 
form“ für den Scribe-Drucker und für 
den Apple-Ilc-Monitor von einer inter- 
nationalen Jury anläßlich der diesjähri- 
gen Hannover-Messe 1985. Den be- 
achtlichen Erfolg verdankt der Apple lic 
seiner professionellen Einsatzmöglich- 
keit im „Persönlichen Computern“ so- 
wohl bei kommerziellen Anwendungen 
als auch in der Schule und zu Hause. 
Quelle: Apple Computer GmbH, Mün- 
chen 





Spooler 


Spooler für Epson-Drucker 

Einen Hardware-Spooler speziell für 
den Einbau in Epson-Drucker der Se- 
rien RX, MX und FX stellt die Firma 
Leunig vor. Er ist lieferbar in zwei Ver- 
sionen: mit serieller oder mit paralleler 
Rechnerschnittstelle. Die Speicherka- 
pazität ist in Stufen aufrüstbar bis 64K 
und wird durch interne Datenkompres- 
sion im Mittel um etwa 50% vergrößert. 
Die Steuerung der Spooler-Funktion 
übernimmt ein eigener Spezialprozes- 
sor, der den Bauteileaufwand und 
Stromverbrauch auf ein Minimum redu- 
ziert. Die Übernahmegeschwindigkeit 
vom Rechner beträgt 1600 Zeichen/s 
Der Einbau dauert etwa 5 Minuten, Die 
umgerüsteten Epson-Drucker bleiben 
völlig hard- und software-kompatibel. 
Quelle:Leunig GmbH, Neunkirchen 


Transfer Il Terminalprogramm 

Die Firma Gerhardt und van Mergern 
liefert ein neues Terminalprogramm und 
V24-Verbinaung vom Game-Port zum 
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Akustikkoppler für Apple || Plus/lle und 
Kompatible. Charakteristik in Stich- 
worten: 

Terminal-Mode: Drei verschiedene Zei- 
chendarstellungen auf dem Bildschirm 
mit jeweils deutschem oder englischem 
Zeichensatz, 40 Zeichen/Zeile, Apple- 
Schriftsatz, 70 Z/Z, 70-130 Z/Z Propor- 
tionalschrift, 

Transfer-Mode: Up/Download beliebi- 
ger DOS-Files zwischen zwei Apple-Il/ 
Transfer-II-Besitzern. 
Text-Editor-Mode: Screeneditor mit 40 
Z/Z und Fenstertechnik, verschiedene 
Move-Befehle, wie z.B. Seitenblättern, 
Textanfang/-ende, gelöschte Zeichen 
versetzen, Suchkommandos. 
Print-Mode: Ausdrucken des Editorfiles, 
paralleler Ausdruck der Kommunikation, 
Parameter einstellen. 


DOS-Befehle: Catalog, Diskette Iö- 
schen, Diskette initialisieren, Drive 
wechseln, 


Quelle: Jochen Gerhardt und Bettina 
van Mergern GbR, Düsseldorf 





Druckertisch 

Über die Firma Dahlhoff ist ein neuer 
Druckertisch erhältlich. Charakteristika: 
Maße: 74x55 x 75 cm (HBT) - Schall- 
dämmung um 6db oder 50% — Ausfüh- 
rung: elfenbein mit Glasdeckel — fahr- 
bar, damit er überall einsetzbar ist - 
separate Steckerzufuhr, damit sich kein 
Kabel mehr verknotet — zwei Äblagebö- 
den — separate Papierzu- und -abfuhr — 
Preis ca, DM 300, -, 

Quelle: Jürgen Dahlhoff, Soest 


Notstromaggregat 

Das TCS SL-10 ist ein Notstromaggre- 
gat, daß sich bei Netzausfall selbständig 
zwischen Netz und Computer schaltet, 
bevor der Rechner abstürzen kann und 
Daten verloren gehen. Ein Akku im In- 
neren des Gerätes erlaubt es — bei 200 
Watt Abgabeleistung — bis zu zwei 
Stunden netzunabhängig und lautlos zu 
arbeiten, so daß genügend Zeit besteht, 
alle ungesicherten Daten zu speichern. 
Ist die Netzspannung wieder herge- 
stellt, schaltet das SL-10 automatisch 
auf Netzversorgung um und erneuert 
die Leistungsreserven des integrierten 
Akkumulators. Eine ständige Ausgangs- 
spannung von 220 V/50 Hz ist somit 
garantiert, Preis ca. DM 2300, -. 

Quelle: TCS Computer GmbH, St. Au- 
gustin 2 
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Leserbriefe 


Wie Apfel-Tasten programmieren? 
Ich bitte Sie, mir bei der Programmie- 
rung der „Apple“-Tasten zu helfen. Da 
sie nicht im ASClIl-Code enthalten sind, 
weiß ich nicht, wie ich die Tasten an- 
steuern soll (aus einem BASIC-Pro- 
gramm), 

Thomas Effert, Kreiz 


Antwort: Dies ist ganz einfach: Wenn 
PEEK (49249) größer als 127 ist, dann 
wurde die linke, und wenn PEEK 
(49250) größer als 127 ist, die rechte 
Apfel-Taste gedrückt, Beispiel: 
10 IF PEEK (49249) > 127 

THEN PRINT "LINKS" 
20 IF PEEK (49250) > 127 

THEN PRINT "RECHTS" 
s0 aoTo10 
us 


80-Zeichenkarte ohne Double-Hires 
Im Oktober 1984 bestellte ich bei der 
Firma Prosoft in Koblenz einen Appe Ile 
mit Monitor, zwei Laufwerken und einer 
Apple-80-Zeichenkarte. Nach erfreulich 
kurzer Zeit erfolgte die Lieferung. 

Beim Auspacken bemerkte ich, daß die 
80-Zeichenkarte nicht, wie die anderen 
Artikel, in einem Apple-Karton verpackt 
war. Als blutiger Neuling dachte ich mir 
jedoch nichts dabei. Die Erleuchtung, 
daß ich wohl nicht die Apple-Karte, wie 
auf dem Lieferschein angegeben, erhal- 
ten hatte, kam mir erst, als ich Peeker 
Nr, 1/84 in Händen hielt und die Experi- 
mente zur Double-Lores ausprobierte, 
welche nicht funktionierten. 

Nach einer telefonischen Rücksprache, 
bei der sich die Firma für den Fehler 
entschuldigte, schickte ich die Nach- 
bau-Karte zusammen mit einem Be- 
gleitschreiben zurück. In diesem 
Schreiben bat ich darum, mir entweder 
die Apple-Karte oder das bereits be- 
zahlte Geld zurückzusenden. Ich warte 
noch immer... 

Zu guter Letzt noch einige Anmerkun- 
gen zu Peeker. Sehr gut gefallen hat mir 
im letzten Heft (7/85) der Assem- 
blerkurs. Da hatte man endlich einmal 
das Wichtigste auf wenigen Seiten zu- 
sammengefaßt, Aufgrund meiner Erfah- 
rungen würde mich ein Test verschie- 
dener 80-Zeichenkarten im Hinblick auf 
Kompatibilität interessieren. Als Test 
eignet sich hierzu ja die Double-Lores 
bzw. -Hires, 

Albert Birkicht, München 


Wie Double-Hires feststellen? 

Wir bekommen immer wieder Anfragen 
bzw. Anrufe der obigen Art bezüglich 
der Double-Hires in Verbindung mit ver- 
schiedenen 64K-Karten. Mit dem nach- 
folgenden Miniprogramm können Sie 
sofort ermitteln, ob Ihre 64K-Karte dou- 
ble-hires-fähig ist oder nicht: 

10 PR#3: PRINT: HGR 

20 POKE 49246,0 

30 POKE 49237,0: POKE 8192,170 

40 POKE 49236,0: POKE 8192,170 

50 GOTO 30 


nn. VE EEE 


Wenn Ihre 64K-Karte in Ordnung ist, 
dann sehen Sie auf dem Bildschirm 
ganz oben links als Grafikzeile 6 Bild- 
punkte nebeneinander, ansonsten nur 3 
Bildpunkte. Die 6 Bildpunkte sind in 2 
„Grüppchen“ zu je 3 Bildpunkten ge- 
trennt (mit einem nicht-sichtbaren Bild- 
punkt dazwischen). Wenn man nicht 
über Double-Hires verfügt, sieht man 
nur 1 „Grüppchen", Da die auf der 64K- 
Karte befindliche zweite Hälfte des 
Double-Hires-Speichers mit dem HGR- 
Befehl nicht gelöscht wird, sehen Sie 
ggf. zusätzlich ein wirres Grafikmuster, 
Dies ist normal. us 


Lob 

Herzlichen Glückwunsch zu Ihrer rund- 
um gelungenen Zeitschrift. Es dürfte 
wohl keine einzige deutsche Publikation 
geben, die ähnlich qute und reichhaltige 
Informationen und Beiträge über die 
Apple-Il-Serie veröffentlicht. 

Karlheinz Eberhardt, München 


40-Spur-Paich für ProDOS-Filer 

in Ihrer Zeitschrift sind zwar bereits 
mehrere Formatierungsprogramme für 
ProDOS abgedruckt worden. Diese hat- 
ten aber alle eine Länge, die das Abtip- 
pen zur Gedulds- und Nervenprobe 
machten, denn beim Abtippen eines 
längeren Assembler- oder Hexlistings 
schleichen sich immer wieder Fehler 
ein. Es ist deshalb günstiger, die vor- 
handene Software zu patchen. Hier die 
Modifikationen für ProDOS 1,0,1: 
Erstellen einer Arbeitskopie der Pro- 
DOS-Systemdiskette, damit nicht die 
Originalfiles versehentlich zerstört wer- 
den, dann: 

1. BLOAD PRODOS, A$2000, TSYS 

2. CALL-151 

3.5209:4G 10 F8 (Hiermit wird die 280- 
Blocksperre abgeschaltet) 

4. UNLOCK PRODOS 

5. BSAVE PRODOS, A$2000, 115360, 
Sr 

6. BLOAD FILER, A$2000, TSYS 

7. In $4244 wird das Low Byte der 
Blockanzahl (Spuren & 8) eingetragen 
(für 40 Spuren 4243:40) 

8. In $4246 wird das High Byte der 
Blockanzahl eingetragen (4246:01 für 
40 Spuren) 

9. In $79F4 wird die Spurzahl eingetra- 
gen (für 40 Spuren: 79F4:28) 
10.BSAVE FILER, A$2000, L25600, 
SYS 

Im übrigen gefällt mir Ihre Zeitschrift 
recht gut, da Sie genau das bringen, 
was in anderen Zeitschriften meist fehlt: 
hochwertige Tips, die das Arbeiten er- 
leichtern, 

Detlev Rackow, Wunstorf 


Druckfehlerteufel 

Als Leser Ihrer Apple-Computer-Zeit- 
schrift habe ich leider festgestellt, daß in 
der Ausgabe 6/85 der „apple-worm“ 
(siehe Spektrum der Wissenschaft 5/ 
85) Ihnen übel mitgespielt hat, denn in 
den Programmlistings finden sich ver- 
schiedene schwerwiegende Fehler: 

1. RAM-Disk-Driver für Pascal 1.1: Im 
Maschinenprogramm _INIT.PASCAL- 
.SOURGE fehlt die Unterroutine LOAD. 
(Bereits nachgetragen im Peeker 7/85, 
S:32. US 


2. Fourier-Analyse: Der Unterpro- 
grammteil 4310, aufgerufen von Zeile 
1600 fehlt (siehe Rahmen, us). 
Generell möchte ich die Gelegenheit 
ergreifen, noch einige kritische Änmer- 
kungen zu Ihrer Zeitschrift anzuführen: 
1. Ich finde es nicht gut, daß einige 
Programme auf mehrere Hefte und so- 
mit auf mehrere Monate verteilt werden. 
Zum Beispiel wird die Graf-quattro-Se- 
rie auf zu viele Hefte verteilt (wird abge- 
stellt; nach einem vorläufigen Abschluß 
wird Graf-quattro wahrscheinlich als 
Sonderheft erscheinen, us) 

2. Es wäre sicherlich sinnvoller, die 
sammeldisketten nicht chronologisch, 
sondern thematisch zusammenzufas- 
sen (z.B. Grafik, DOS-Hilfen, Kopier- 
programme, Pascal-Hilfen, Spiele, Ma- 
thematikprogramme, BASIC-Hilfen 
usw.). Meines Erachtens würde sich da- 
durch die Attraktivität der Disketten er- 
höhen. 

Weiterhin wünsche ich mir folgende 
Programme im Peeker, die von sehr 
allgemeinem Interesse sein dürften: 

1. Ein Eingabeprogramm für Maschi- 
nenprogramme in Hexadezimal-Code. 
2. Ein Kontrollprogramm für Maschinen- 
programme, das die Richtigkeit der Ein- 
gabe überprüftfliegt bereits vor; er- 
scheint demnächst, us). 

3. Ein Hires-Druckausgabeprogramm 
(ähnlich die Superdump) für Pascal- 
Programme (liegt bei Jürgen Geiß be- 
reits vor; erscheint zu einem späteren 
Zeitpunkt, us) 

Jan Leutenantsmeyer, Bad Bentheim 


Verbesserungsvorschläge 

Weiter so: Peeker ist eine Zeitschrift, 
die ihr Geld wert ist. Aber trotzdem ha- 
be ich einige Verbesserungsvor- 
schläge: 

1. Ihre Programme, Bücher und Disket- 
ten sind so gut, daß sie so viel Werbung 
gar nicht nötig haben. Nutzen Sie die 
kostbaren Druckseiten für Wichtigeres. 
2. Wir wissen nun alle, daß Sie etwas 
gegen den Mac haben — wie ich im 
übrigen auch. Aber laßt doch denen ih- 
ren Mac, für die der Mac bestimmt ist 
und nutzt den Platz. 

3. Die meisten Artikel sind sehr interes- 
sant. Beim ersten Überfliegen der Arti- 
kel läuft mir das Wasser im Munde zu- 
sammen. Doch bald folgt die ernüch- 
ternde Feststellung: Das Mahl war nicht 
für mich bestimmt. Das leidige Problem 
der Kompatibilität. Kein Apple gleicht 
dem anderen. Drei Beispiele: 

1. Heft 6/85 berichtet über die RAM- 
Disk für CP/M 2.20, 56K. Die RAM-Disk 
lauft sehr gut unter der 56K-Version. Da 
ich aber lieber CP/M 2.23, 60K benutze, 
denn diese verträgt sich besser mit mei- 
ner Maus, Kann ich die RAM-Disk nicht 
benutzen. Nicht nur, daß die RAM-Disk 
die Bank 2 der unteren 64K nicht nutzen 
darf, sondern diese Version belegt die 
Seite $FC00 und hat auch andere Ein- 
sprungadressen. 

2. In Heft 7/85 wurde der Programmtext 
eines Fonteditors für die Videx-Karte 
veröffentlicht. Ich habe aber einen Ap- 
ple Ile mit 80-Zeichenkarte. Wo sind 
meine Zeichensatz-EPROMs und wie 
sind diese aufgebaut? 7 x 8 Pixel? 
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3. Im gleichen Bericht wird die Anpas- 
sung von Multiplan an die inverse Dar- 
stellung von Feldern angedeutet, Aber 
wie? 

Ich erwarte keine Programme für jede 
Version, aber vielleicht ist es möglich, 
am Ende aller Berichte Literaturhinwei- 
se anzugeben oder an anderer Stelle 
kleine Tips zu geben, damit alle die 
Programme besser nutzen können, 
Wilfried Pohl, Hamburg 


CP/M-RAM-Disk 

Herzlichen Dank für die Veröffentli- 
chung des RAM-Disk-Drivers für die 
64K-Karte unter CP/M. Schwierigkeiten 
gab es allerdings bei der Eingabe des 
Assemblerprogramms RDSKINIT mit 
Hife des DDT-Programms: Meines 
Erachtens stimmt der auf S. 61 abge- 
druckte „Hexdump“ nicht mit dem Äs- 
semblerquellprogramm S. 60/61 über- 
ein. Erst bei Eingabe des im Quellpro- 
gramm enthaltenen Hexcodes mit DDT 
stellt sich der versprochene Erfolg ein! 
Sofern ich den Artikel nicht gründlich 
mißverstanden habe, sollten Sie Ihre 
Leser auf diese Unstimmigkeit hinwei- 
sen bzw. einen korrigierten und über- 
sichtlicheren „Hexdump" abdrucken. 
(Die jeweils letzte Hexzahl jeder Zeile 
ist eine Prüfziffer und darf nicht mit ab- 
getippt werden. us) 

Roland Schenkel, Ötterbach 


Fourier-Analyse 

Das Programm FOURIER.MAIN, von 
dem ich nur den Analyseteil benutzte, 
hatte leider einige kleine Fehler. Die 
Bildschirmgrafik arbeitete nicht und die 
numerischen Ergebnisse waren offen- 
sichtlich falsch. Da ich kein Mathemati- 
ker bin, mußte ich erst einmal zu den 
zitierten Quellen hinabsteigen. Denn 
vor der Reparatur steht das Verständnis 
der dem Programm zugrunde liegenden 
Algorithmen. Es fehlte zunächst die 
Umschaltung von 80 auf 40 Zeilen vor 
Aufruf der HGR-Routinen. Dazu fügte 
ich ein Zeile 

3135 Print CHR$ (21) 

(Ist nicht erforderlich bei Ile/c. us), 

und danach arbeitete die Grafik. In Zei- 
len 1920, 1990, 2110 einerseits und 
Zeilen 1920, 2000, 2110, 2170 anderer- 
seits stehen gleichlautende Ausdrücke 
der Form: IF L (bzw. K) = M „.. Diese 
wurden geändert in: 
IFL(bzw.K}=>M.. 

Danach rechnete das Programm mit der 
erwarteten Genauigkeit. Letztlich 
schrieb ich die Druckausgabe für mei- 
nen FX-80 völlig um und fügte noch 
einiges hinzu, Nach meinem Ge- 
schmack müssen die eingegebenen 
Stützstellenwerte und die Form der 
Fouriergleichung mit ausgedruckt wer- 
den, nicht nur deren Koeffizienten. 
Letztlich müssen bei mir auch die Zah- 
len geordnet untereinander stehen. Die 
Epson-Interface-Karte hat dafür eine 
eingebaute Formatierungsroutine. Die 
Genauigkeit allerdings ist nur ab einem 
Grad der Gleichung von 12 wirklich zu- 
frredenstellend, wenn man eine Funk- 
tion mit Sprungstellen, wie die im Be- 
gleitartikel vorgeführte, betrachtet. 
Rechnet man nur bis zum 2, Grad, sind 
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die Ergebnisse schlichtweg falsch. Aber 
ab dem 4. Grad sind die Ergebnisse 
akzeptabel. Die Genauigkeit kann aber 
verbessert werden, wenn, wie beim 
Handrechnen üblich, die Stützwerte vor 
Beginn der Rechnung daraufhin unter- 
sucht werden, ob bei der Kurve gewisse 
Symmetrie-Eigenschaften vorhanden 
sind. Bei Vorhandensein können Cos- 
Terme oder Sin-Terme völlig ausge- 
schlossen werden. In der Beispielfunk- 
tion würden dann die jetzt erscheinen- 
den Cos-Werte entfallen. 

Rolf Sauer, Heidelberg 


Grafik-Dump auf IIc 

Zuvor ein dickes Lob für Ihre Zeitschrift! 
Als Besitzer eines Apple Ilc stellt sich 
mir die Frage, wie man mit ihm Grafiken 
ausdrucken kann, obwohl man mangels 
Slots keine Grafik-Interfaces benutzen 
Kann. Ferner bitte ich Sie, mir mitzutei- 
len, ob der Tandberg Data Tintenstrahl- 
drucker beim Ilc zum Ausdruck von 
Grafiken benutzt werden kann. 

Anton Bredonius, Pforzheim 


Superdump für Seikosha? 
Veröffentlichen Sie auch zum Beitrag 
Superdump Heft 6/85 die Modifizierung 
für den Seikosha GP-100A Mark II? Ein 
riesiges Lob auch an Ihre Aufmachung 
der Titelseiten., Ich finde, so etwas sollte 
es auch als Poster geben. Weiter so! 

I. Kübler, Backnang 


Lochrand 

Beim Äbheften von Listings in Plastik- 
Ringbinder geht der linke Teil der Zei- 
lennummern verloren (Lochung!), Gibt 
es einen Poke, um das Listing 2 cm 
nach rechts zu schieben? 

Heinz Specht, Bietigheim-Bissingen 


Bit-Editor auch für Ile? 

Mit großem Interesse habe ich den Arii- 
kel von Herrn Klamt in Heft 7/85 gele- 
sen. Die Verbesserung der Zeichenles- 
barkeit ist enorm! Da sich mit dem Pro- 
blem der guien Lesbarkeit der 80 Z/Z 
nicht nur die Besitzer von Videx-Karten 
herumschlagen, wäre es bestimmt eine 
gute Idee, dieses Programm auch für 
die Apple lle-Karte (80 Z/Z + 64K) zu 
veröffentlichen (evtl. sogar mit der Lie- 
fermöglichkeit entsprechender 
EPROMs, da nur wenige Anwender die- 
se EPROMs selbst brennen können). 
Werner König, Hanau 


Wie schnell ist der Mac? 

Falls Sie zu diesem Artikel (Heft 5/85, 
5.43) noch keinen Berg von Leserbrie- 
fen erhalten haben, kann dies eigentlich 
nur daran liegen, daß der Fehler zu of- 
fensichtlich ist. Ohne groß darüber her- 
zuziehen, ist Ihnen ja hoffentlich klar, 
daß Herr Gapitain nur die effektive Takt- 
frequenz gemessen hat. Bevor ich Ih- 
nen das aber genauer erläutere, erkläre 
ich, daß ich weder mit der Firma Apple 
auf irgendeiner Weise verbunden bin 
noch einen Mac besitze, sondern mich 
als Student der Physik (im Rahmen mei- 
ner Diplomarbeit) mit der Beschaffung 
eines 68000-Systems beschäftige. 

Der 68000 hat die Eigenschaft, auch mit 
langsameren Speicherbausteinen zu- 
sammenzuarbeiten, indem er Waitzy- 


klen einfügt; Nicht jeder Speicherbau- 
stein schafft die notwendigen 125ns 
Schreib-/Lesezeit, um mit einer 8 MHz 
CPU zusammenzuarbeiten. 

Untersucht man die verwendeten Be- 
fehle zwischen EOE und E1E genauer 
(ohne die Piepser), so stellt man folgen- 
de Anzahl von Taktzyklen fest, die für 
schreib- und Lesezugriffe benötigt 
werden: 


Befehl — Takte — Speicherzugriffe 
MOVE.W #7F, DI - 12 - 3/0 

MOVEQ #FF,DO — 4 — 1/0 

MOVE.L (A7),(A7) - 20 - 3/2 

DBRA DO, E14 - 10 - 3/0 - (verzweigt) 
DBRA DO, E14 -— 14 - 3/0 - (nicht 
verzweigt) 

CLR.W - (AT) - 14 - 2/1 


Das ergibt eine Gesamtanzahl von 32 + 
30 x DO + D1 + 18% D1 Takten, davon 
6+8x*DOx+D1 +4x DI Schreib- oder 
Lesezugriffe. (Wie Herr Capitain auf den 
Term von 32 & DO * D1 kommt, ist mir 
ein Rätsel, erklärt aber nicht seinen 
Fehler, Außerdem wird der Befehl 51xx 
normalerweise nicht als DBRA, sondern 
als DBF übersetzt.) 

Dies bedeutet eine effektive Taktfre- 
quenz von 5,21 MHz, Man braucht nur 2 
Waitzyklen einzulegen (ein Waitzyklus 
reicht nicht aus, denn 250ns-Bausieine 
sind auf dem freien Markt auch noch 
selten und dort muß Apple ja kaufen, da 
sie nicht selbst Speicherbausteine pro- 
duzieren), um dann auf die gesuchte 
Taktfrequenz von 8 MHz zu gelangen. 
Leider ist der Beweis nicht auf die 
schnelle zu führen, da fast alle Befehle 
das Verhältnis von 1 Schreib-/Lesezu- 
griff auf 4 Taktzeiten haben. Unter Opfe- 
rung von 6 Minuten kann der Beweis 
angetreten werden. Nach meiner Be- 
hauptung müßte die gleiche Schleife mit 
zehn MOVE.L {A7), (A7) 331,4s dauern, 
während eine Taktfrequenz von 5,21 
MHz ohne Waitzyklen 340,2s benötigen 
würde. Diese 9s Unterschied müßten 
ausreichen, um Meßfehler auszuschlie- 
Ben. Denn eine Steigerung der Taktfre- 
quenz um 0,1 MHz nach Belieben des 
Rechners ist mir noch nicht vorge- 
kommen. 

Wer dem Macintosh als (ersten billigen) 
„Grafik"-Rechner noch anlasten will, 
daß er zu langsame Speicherbausteine 
hat, sollte sich tatsächlich einen ande- 
ren Rechner zulegen, um dem Traum 
von Geschwindigkeit nachzukommen, 
Georg Verweyen, Aachen 


1. Replik zum Mac-Brief 

Zu den einzelnen von Ihnen angespro- 
chenen Punkten möchte ich folgendes 
bemerken: 

— Ob man den Befehl 5ixx mit DBF 
oder mit DBRA übersetzt, ist Ge- 
schmackssache; beide Versionen wer- 
den vom Assembler akzeptiert. Sollte 
jemand die Form DBF bevorzugen, so 
kann er dies leicht durch entsprechende 
Änderung der Zeile 1842 erreichen. 

— Der Term 32 x» Di # DO in der Formel 
für die Zahl der Takte kommt dadurch 
zustande, daß in meinen Unterlagen 
manche Befehle andere Ausführungs- 
zeiten haben, als Sie sie angegeben 
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haben. So benötigt insbesondere der 
Befehl MOVE.L (A7),(A7) 22 Takte (sie- 
he MC68000-Benutzerhandbuch, deut- 
sche Ausgabe 1980). Welche Angabe 
richtig ist, weiß ich nicht, 

— Die von Ihnen vorgeschlagene Schlei- 
fe mit zehn Befehlen MOVE.L (A7),(A7) 
benötigt nach meinen Messungen 
345,0s, 

—- Leider haben Sie die Absicht mißver- 
standen, die ich mit dem Beispielpro- 
gramm gehabt habe, Ich wollte keines- 
wegs aus dem Mac einen langsamen 
Rechner machen. Vielmehr bin ich als 
Assembler-Programmierer, der seine 
Programme (fast) immer im RAM ablegt, 
daran interessiert, wie schnell diese 
Programme dann laufen. Und von die- 
sem Standpunkt aus ist es mir wichtig, 
daß der Mac im RAM eine (effektive) 
Taktfrequenz von ca. 5-6 MHz und nicht 
8 MHZ erreicht, Und die für den Physi- 
ker sicher interessante Feststellung, 
daß der Mac 8 MHz schaffen könnte, 
wenn nur die Speicherbausteine 
schneller wären — diese Feststellung 
macht meine Programme dann aber 
auch nicht schneller. 

Pit Capitain 


2. Replik zum Mac-Brief 

Mein Lieblingsphilosoph, Nicolai Hart- 
mann, schrieb dicke Wälzer über das 
Thema „Möglichkeit und Wirklichkeit“. 
Wenn ich mich mit meinem alten Golf 
GTI von der Hebebühne hochhieven 
lasse, den Motor starte und dann im 
fünften Gang das Gaspedal bis zum An- 
schlag durchtrete, gaukelt mir die Ta- 
cho-Nadel eine Geschwindigkeit von 
220 km/h vor, Warum gibt VW dann 
nicht in der Werbung an, daß der GT! 
220 „Sachen schafft“? Weil sich nie- 
mand ein Auto kauft, um auf einer Ram- 
pe zu „fahren"! Soweit die Werbung in 
der Autoindustrie. Betrachtet man dem- 
gegenüber die Werbung in der Compu- 
terindustrie, so wird man schnell ge- 
wahr, daß hier vielfach nur das Mögliche 
und nur ganz selten das Wirkliche her- 
ausgestellt wird. Einige Beispiele: 

1. Takte/s: Wenn ich den Mac-68000- 
Prozessor in der Hand halte, kann ich 
von der Möglichkeit von 8 MHz spre- 
chen. Steckt der 68000 jedoch im Mac- 
intosh, so sieht die Wirklichkeit ganz 
anders aus. Bereits vor anderthalb Jah- 
ren wurde in der „Byte” konstatiert, daß 
das Video-RAM des Macintosh nur eine 
Taktfrequenz von ca. 5,5 MHz zuläßt. 

2. Zeichen/s: Wenn man in den Epson- 
Handbüchern nachschlägt, findet man 
z.B. für den FX-80 eine Druckgeschwin- 
digkeit von 160 Zeichen/s. Der best- 
mögliche Wert, den ich gemessen ha- 
be, beträgt 103 Zeichen/s,. Unter wel- 
chen Umständen könnte die Möglich- 
keit der 160 Zeichen/s zur Wirklichkeit 
werden? Wenn ich die Zeit messe, die 
der Druckkopf benötigt, während er in- 
mitten einer Textzeile, nachdem er be- 
reits „auf vollen Touren" ist, quasi „im 
freien Flug" eine Leertaste überspringt, 
komme ich „hochgerechnet“ mögli- 
cherweise auf 160 Zeichen/s, Mit der 
Realität hat dies allerdings nichts ge- 
mein. 
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3. Bits/s: Bei Diskettencontrollern ist 
meist von „Megabits“ die Rede. Sind 
derartige Übertragungsraten reali- 
stisch? Wohl nur dann, wenn man sich 
das jeweilige Betriebssystem weg- 
denkt. Doch wer arbeitet schon mit ei- 
nem Controller onne DOS? Beispiels- 
weise fragte mich nachträglich die Firma 
Frank und Britting, warum in dem Mega- 
core-Bericht (Heft 7/85, 5.77} von einer 
Übertragungsrate von nur 4000-15400 
Bytes/s die Rede sei, wo doch die Me- 
gacore viele, viele Megabits/s übertra- 
gen würde, Was will jedoch der poten- 
tielle Käufer erfahren: einen physika- 
lisch „richtigen“ Laborwert oder einen 
physikalisch „falschen“ Praxiswert? 
Was für die Autoindustrie gilt, sollte 
auch für die Compuierindustrie gelten. 
Wer sich nicht an den theoretischen 
Physiker wendet, sollte die Geschwin- 
digkeit niemals auf der Hebebühne, im 
Vakuum oder im freien Fall von der Zug- 
spitze messen. 

U. Stiehl 


Peeker und Schule 

Großes Lob für die reichhaltigen Beiträ- 
ge, die auch Laien einiges geben kön- 
nen. Gibt es einen besseren Beweis als 
folgenden? Wir haben den Peeker an 
meiner Schule als Fachzeitschrift abon- 
niert. Dennoch hat sich nach mir ein 
weiterer Kollege zum privaten Abo ent- 
schlossen, weil zum einen das Schulex- 
emplar genutzt wird wie keine andere 
Zeitschrift sonst (und somit ständig 
„Unterwegs“ ist) und es zum anderen 
doch etwas anderes ist, informatives 
Material ständig parat zu haben. 

„Völlig stiefmütterlich behandelt der 
Staat seine Lehrer, denn an Aus-, Fort- 
und Weiterbildungsmaßnahmen läuft 
äußerst wenig. Fast alles - insbesonde- 
re im Sekundarstufen-I-Bereich — muß- 
(te) autodidaktisch erworben werden: 
Hier sehe ich das weite Feld für den 
Peeker, wobei Sie sicher darauf achten 
werden, daß der Peeker nicht zur Kla- 
gemauer der Pädagogen wird. 
Hermann Döring, Liederbach 





Vermischtes 


Paul Lutus im ZDF 

Als ich mir am 18,07.85 im ZDF die 
Sendung „Aus Forschung und Tech- 
nik“ ansah, traute ich meinen Augen 
kaum, als plötzlich Paul Lutus für weni- 
ge Sekunden auf der Mattscheibe er- 
schien, Der Schöpfer des „Applewriter" 
lebt in einem Holzhaus im tiefsten Wald 
von Oregon mit einer riesigen Funkan- 
tenne im „Vorgarten“, die ihm den Kon- 
takt zur Außenwelt ermöglicht. Die 
Waschbären scheinen also seinen Pro- 
grammierdrang noch nicht gebremst zu 
haben. us 


Visicalc eingestellt 

Man darf wohl mit Fug und Recht be- 
haupten, daß der Apple Il in der Grün- 
derzeit erst durch „Visicalc" kommer- 
ziell salonfähig wurde. Viele Kaufleute 
erwarben damals einen Apple || nur aus 
dem einen Grunde, um das berühmte 
Tabeilenkalkulationsprogramm einzu- 
setzen. Im Jahre 1979 von Software 
Arts alias Visicorp für den Apple konzi- 
piert, wurde es bald für zahlreiche ande- 
re Rechner umgeschrieben und entwik- 
kelte sich zu einem der erfolgreichsten 
Mikrocomputerprogramme aller Zeiten. 
Als dann „Multiplan“ von Microsoft und 
„1-2-3" von Lotus erschienen, ließen 
die Visicalc-Verkäufe merklich nach. 
Jetzt machte die Firma Lotus dem 
Longseller vollends den Garaus, indem 
sie zuerst Visicorp übernahm und dann 
prompt Visicalc aus dem Verkehr zog. 
US 


Pyramid Pitty als Hex-Dump? 

Zu dem in Heft 7/85 nur beschriebenen, 
aber nicht gelisteten Programm erhielt 
ich einige verbitterte Zuschriften von 
Peekerlesern, die darauf bestanden, 
daß zumindest der Hex-Dump hätte ab- 
gedruckt werden sollen, Offensichtlich 
war den Schreibern nicht bewußt, daß 
professionelle Computerspiele extrem 
umfangreich sind. So umfaßt der reine 
Hex-Dump aller Module von Pyramid 
Pitty ca. 20400 Bytes. Bei dreispaltigem 
Druck mit je 90 Zeilen zu je 8 Bytes pro 
Spalte würden sich insgesamt minde- 
stems 9 3/4 Druckseiten im Peeker er- 
geben. Diese „Byte-Masse" kann nie- 
mand fehlerfrei abschreiben. Und der 
Quellcode selbst hätte übrigens mehr 
als ein ganzes Peekerheft gefüllt. Ich 
hoffe, daß damit ausreichend begründet 
ist, warum das Listung des Programms 
nicht abgedruckt wurde. us 


Sammeldisk #10 

Die Programme aus diesem Heft 9/85 
finden sich auf der Sammelidisk #10, 
die in Verbindung mit Heft 10/85 ausge- 
liefert wird. 
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daaelecirönie ambohurreibulge ann een sun: 49 
56 Sn Ein eo ee 29 
Bühler Elektronik, Baden-Baden . . . va m m mm nn 9 
cep-datentechnik, Hamburg . . . 2 2 om m on 23 
J. Dahlhoft Computertechnik, Soest . . .. 2. cm av. 68 
D.O.S. Computersysteme, Schwäbisch Hall... . 22... . 29 
Franzis-Verlag, München , . 2 2 2 2 0 u m u ren 35 
Ingenieurbüro Fricke, Berlin . . 2 2 22 2 oo on 25 
BANN De Lg 35 
IBS-Computertechnik, Bielefeld . . 2 2 oo oo om. 44 
Interkom electronic, Isernhagen . : 2 a 2 m mm. 70 
Intus, Waldshut-Tiengen . 2 2 om Coon 16 
Jeschke. Kelkheim 70 
RES Kol Sei ee 7 
MCI GmbH, Bergisch Gladbach... . : 2 cn 70 
E.-W. Meyer, Frohnhausen.. . 2 2: oo mn 23 
Micromint Computer GmbH, Erkrath . 2 2 m mo 29 
U. Mohwinkel Electronic, Leverkusen . . . 2. 2 2 cm... 29 
Kandasolt Berliner 42 
SOlllile-ODenkiichinn ee 29 
Dipl.-Ing. R. Springmann, Hannover . . 2 2 2 22. 29 
SusmmagraphiesMünchen sera 9 
Sybex-Verlag GmbH, Düsseldorf, 2 Ho m mon 23 
TEWI-Verlag, München. . 2 2 2 mo mn 43 
Tombstone-Micro, Berlin. . 2 222mm 70 


Ueding electronics, Menden . . . 2 2 zo m m mn 
Zechnersche Buchdruckerei, Spey 


Druckertisch 


»>+3.redaktioneller Teil 





biasdeckel 


Peg 


+ 50% Schalldämmung 


* Öffnungen f. Papier - 
und Steckerzufuhr 


* 74x55x75 cm (HET) 
Preis: 293,-DM 

bei Yorkasse Lieferung 
frei Haus 





Computertechnik 
J. Dahlhoff 
Höggenstraße la 

| 4770 Soest 


| Tel. 02921-125872 
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Errata 


Fourier-Analyse 


In Heft 6/85, S. 42 hat unsere Druckerei bei der 
Datenübertragung exakt 1924 Bytes "unterschlagen", 
und ich habe es beim Klebeumbruch nicht gemerkt... 
Nachfolgend der fehlende Abschnitt. Auf der 
Sammeldiskette #6 ist das Programm komplett, 


AR2D RETURN 


4238 PRINT CHR$ (12): PRINT "Im folgenden Katalog 
der Disk sind die entsprechenden": PRINT : 
PRINT "Files wie folgt gekennzeichnet: '" 


a2RAß PRINT 


425ß HTAB 1%: PRINT "xxxxxKOEFF beinhaltet die 
Fourier-Koeffizienten einer bereits": PRINT: 
HTAB 18: PRINT "analysierten Funktion." 


4260 PRINT : 


HTAB 19: PRINT "xxxxxWERTE beinhaltet 


eingegebene Funktionswerte." 


4278 PRINT 
4288 PRINT : 


INPUT 1516 ::5 
INPUT "Drive:":D 


4298 PRINT D$; "CATALOG „S";S;",D";D 


4368 RETURN 
4319 REM 


A32B REM *+* Eingabe mit der analytischen Funktion *** 


4339 REM 
4349 PRINT CHR$ (12) 
4345 LIST 4419: PRINT 


A350 INPUT "Ist die zu analysierende Funktion 
bereits in Zeile 441 einprogrammiert? (J/N)";FF$ 


4368 IF FF$ = "J" THEN 441® 
437% PRINT 


A388 PRINT "In Zeile 4159 ist nach Programmstopp 
die zu berechnende Funktion": PRINT 


PRINT "einzuschreiben" 
4398 PRINT : 
AA1ß DEF FN F{I)=-.. 


PRINT "Dies muß in der Form: 
geschehen.'": 


FRINT : 


PRINT "Nach Eintragen der Funktion wird das 
Programm mit RUN neu gestartet." 


STOP 








Formatter 


Laut Peeker, Heft 7/85, 5. 22, 


steht noch ein 


Patch aus, um dieses Formatierungsprogramm 
optimal für Disk-II- und Ducdisk-Laufwerke 
einzustellen. Als Korrektur gibt der Autor, 


Arne Schäpers, an: 


BLOAD FORMAT.OBJ 
CALL -151 
2ÖF6: 58 (statt bisher 3ß) 


BSAVE FORMAT.OBJ, AS20B0, L983 


Man beachte, daß es sich bei dieser Korrektur 
des "'Armbewegungswertes" nicht um einen Fehler 


im engeren Sinne handelt 


Vielmehr erreicht man 


aurch Erhöhung des Wertes von $39 auf $58, 

daß der DOS-Read-Write-Zugriff auf unterster 
RWTS-Ebene ausgeglichen ist. Der alte Wert $3® 
bewirkt, daß der Sektor-Read sogar geringfügig 
schneller als normal ist (ca, 5%); dies kann 


bisweilen erwünscht sein. 


Besitzer anderer Laufwerke können mit anderen 


Werten im Bereich $38-$59 experimentieren. us 


PLOT 2.0 


Im Programm PLOT 2.8 aus Peeker 5/80 sind im Listing 
(nicht auf der Sammeldiskette) folgende Tippfehler: 


Zeile 3336 I = ds 
statt 33368 I = 1I 


Zeile 3949 
statt 3949 


THEN 3919 
THEN 

Zeile 5499 GOSUB 2 
statt 540% 


GOSUB 1#1® „.. 


Ferner muß die vorletzte Zeile des EXEC-Files PLOT.PROTECTOR 


POKE 5ß,255 
statt PÜKE 59,225 lauten, 


Die Sammeldiskette ist, wie gesagt, korrekt. 


Pressestimmen zur Wirtschaftlage von Apple 


„Die Revolution” 
hat gerade erst begonnen” 
(Apple-Werbeslogan 1985) 


Die anhaltende Spekulation beruht auf 
der Überlegung, daß sich Apple, dieses 
Symbol der Auflehnung gegen konven- 
tionelle Umgangsformen, an einen star- 
ken Konzern anlehnen muß, um auch in 
den Bürocomputermarkt einzudringen, 
Das braucht keine Zusammenlegung zu 
sein. Ein Vertriebsabkommen mag ge- 
nügen. 

Im Gespräch sind die Giganten Atandt, 
General Electric, General Motors, Wang 
und Xerox. Sie dementieren durchweg. 
Eine „feindliche Übernahme" gilt als 
unwahrscheinlich, weil  Apple-Vor- 
standsmitglieder gute 20 Prozent des 
Aktienkapitals kontrollieren. 
Handelsblatt vom 30.05.1985 


Die Schwäche auf dem Heimcomputer- 
markt zwang jetzt auch die Nr. 2 in den 
USA, Apple Computer Inc., zu einer 


drastischen Reorganisation, in der sie 
ihre gewachsene Firmenstruktur über 
Bord warf und sich dem konventionellen 
Aufbau des Erzrivalen IBM anpaßte. Auf 
der Strecke blieb dabei Apple-Mitgrün- 
der Steven Jobs, ein 30jähriges Wun- 
derkind, der zusammen mit seinem 
Freund den Markt für Personalcomputer 
erst kreierte, Insider gehen davon aus, 
daß Jobs seine Verantwortung für Ent- 
wicklung, Produktion und Verkauf des 
Macintosh erst aus der Hand legte, 
nachdem ihn der Aufsichtsrat davon 
überzeugen konnte, daß eine Beibehal- 
tung der Firmenspaltung in einen Ap- 
ple-I- und Macintosh-Flügel zur Exi- 
stenzbedrohung werden könne. Nach 
der neuen Struktur gibt es nur noch 
eine Funktions- und keine Produktspal- 
tung mehr. Jobs wurde zum Vorsitzen- 
den mit „globalen Funktionen” beför- 
dert, die Probleme bei Apple ließen den 
Kurs der Aktie gegenüber seiner 
Höchstnotierung um annähernd 75% 
fallen. 

Handelsblatt vom 03.06.1985 


* Revolution kommt von lat. revolvere = zurückdrehen 
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Aufgrund der weltweiten „konjunkturel- 
len Schwächetendenz des Computer- 
marktes" wird die Apple Computer 
GmbH München die Zahl ihrer Mitarbei- 
ter abbauen. Wie Geschäftsführer Ralph 
M. Deja mitteilte, wird die Belegschaft 
zum Oktober dieses Jahres um 25 auf 
62 Mitarbeiter reduziert. 

Stutigarter Zeitung vom 29.06.1985 


Das akute Apple-Problem - die Wachs- 
tumsraten der Industrie und der „Le- 
bensstandard“ des Herstellers (Mana- 
gerschulung auf Sylt!) passen nicht zu- 
sammen — wird durch die von Sculley 
verordnete Diät nicht entschärft. Zwar 
lacht das Herz des Apple-Kassierers, 
daß mit den Personal-Entlassungen die 
finanzpolitisch richtigen Entscheidun- 
gen getroffen wurden, doch bleibt die 
Frage der Marktpräsenz: Wie will die 
Apple-Rumpfmannschaft Stärke de- 
monstrieren und — was viel wichtiger 
scheint — ihren Kunden den nötigen 
Support bieten? Beispiel: Es erscheint 
fast als eine Anmaßung, im „Büro sein 





zu wollen, wie Sculley vorgibt, wenn die 
Produkte („Mac-Office”) noch nicht da 
sind. Wie will man so, etwa gegenüber 
gestandenen Großunternenmen, Serio- 
sität als Computerhersteller auf die Bei- 
ne bringen? Es geht hier immerhin ge- 
gen die IBM, die ihre Marktmacht bei 
den „Large Accounts“ über Speziali- 
sten in den zentralen DV-Shops ausübt, 
Noch ist nicht zu sehen, daß Apple vom 
hohen Roß heruniersteigen will. So 
macht beispielsweise Deutschland- 
Chef Ralph Deja die schlechte Konjunk- 
tur im Computermarkt für die Apple- 
Schwäche verantwortlich. Diese Aussa- 
ge ist, was die Bundesrepublik betrifft, 
schlichtweg falsch. Once again: Wie will 
Apple Seriosität auf die Beine bringen? 
Von der Beantwortung dieser Frage 
hängt es ab, wie heuer die „Apfel"- 
Ernte ausfällt. 

Computerwoche vom 05.07.1985 
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QUALITÄT AUS ERSTER HAND, 


CE-61 mit TYPETERM ....... DM 1787,- 
EM-80 mit TYPETERM .......... DM 2087, — 
EM-100 mit TYPETERM ...... . DM 3122,- 
TYPETERM-Kit für CE-50 DM 468,- 
CE-25 mit TYPETERM anfragen 


TYPETERM - ein starkes Interface für 
starke Maschinen! Alle Cursor- und Ctl- 
Befehle, 2k ROM auf der Karte f. DOS, 
PRODOS, CP/M, PASCAL. Alle Features: 
Hoch-/Tiefstellen, autom. Unterstreichen, 
var, Zeichen- u. Zeilenabst., autom. 
Papierzuführung usw. Ausführl, 
Handbuch vorab: 10,— DM auf Konto 
14770-306 PGiroA Han (Anrechnung), 


TYPETERM ein Produkt von 
e 






Die Artikel der Firma 


Erscheinungs- und Anzeigen- 
schlußtermine für peeker 






Interdata GmbH, Singen, 
die 
B. 
Ledergerber, Im vorderen 
Chapf, CH-Rüdlingen 
Tel.: 01/8673141, 













sind auch über 







Firma Beltronic, 


Ausgabe Erscheinungs- 


termin 


23. 9.85 


21. 10.85 


Anzeigen- 
schluß 


23. 8.85 









zu 


20. 9.85 






beziehen. Kock & Mreches GmbH 


Postf., 3004 Isernhagen 4 
Telefon 051 39-87393 








eslectrome 


25. 10. 85 






| 25.11.85 





3,5" Pana. JU 363 479DM 
135 1pi2x 80 track 1 MByte 


TEAC FD55B 379 DM | 
48 1pi2 x 40 track 500 KByte 

TEAC FD55F 449DM| 
% pi 2x Bü track 1 MByte 

SANYO BFT540 399DM 
48 tpi2 x 40 track 500 KByte 
SANYOBFT580 449DM 
% ipi2x 80 track 1 MByte 
CHINON F-502 399 DM 
48 1pi2 x 40 track 500 KByte 
REMEXRFD480 329DM 
481pi2 x 40 track 500 KRyte 


Apple AFD55A 399 DM 
mit Kabel und Gehäuse 


STATIONEN 


2x8" 5SDD KIT 1399 DM 
2x8" DSDD KIT 1999 DM 


XT16PC 


" 16 Bit 8088 Rechner 
vollständig Kompatibel, 
ausgerüstet mit: 
Colorcard, 

256 RAM 

Floppy Controller, 

1 Drive, 360 K, 
deutsche Tastatur, 

130 W Netzteil 


XAT 16 PC 
mit 6 MByte Winchester 
AT 16 WLC 


ESPRINT 80/ 801 


@ IViX 80 + Graftrax Compatible 

® 100Zeichen/9x11Matrix,6Zeichensätze 

® Parallel + RS232, Einzelblatt u. Traktor 
699 DM 


J.-W.-Lindlar-Straße 8 
5060 Bergisch Gladbach 2 
Tel. (02202) 31007 : Tx. 8873518 


FLÜSTER-FLOPPY 


CHINON F-051 A 
mit Kabel 379 DM 


Billigversion!! 
CHINON A-It 
mit Kabel und Gehäuse 


LI 
& 
2 
= 
E 


345 DM 
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DAS 
APPLE Il 
HANDBUCH 


Die rasche Orientierung für APPLE 
Iiplus, IIe, Ic 


Schnelle Antwort auf Alltagsfragen am APPLE II - 
leicht nachzuschlagen, praxisbezogen, für Iplus, Ile, IIc 
in nur 1 Buch! 

Unterschiede Ilplus/IIe, DOS 3.3/ProDOS, E/A-Inter- 
facekarten/Ports, 40/80 Zeichendarstellung, US/DTS- 
Tastatur, 48K/128K Systeme etc. 
Grafik/Soundmösglichkeiten, eine der APPLE-Stär- 
ken, in stark erweiterter Beschreibung. 

Kurzführer „Steckkartenerweiterungen“ mit Fotos; 
„Sofortbetrieb von Disketten/Cassettengeräten“, 
„Druckerbetrieb“; „Direktbefehle“; „Jastaturbedienung“ etc. 


Be ET re 


Backgroundwissen: BASIC für Beginner/Proftessionelle; MC/BASIC-Kombination; MC- 
Entwicklung mit MONITOR/MINIASSEMBLER; APPLE-PASCALBS; 
Disketten/Plattenspeicherung; Dateiformate etc. 

Ausführlicher Anhang zu Editor, Speicherbelegung, Codes des 
APPLESOFT-Interpreters etc. 


DAS APPLE ITIHANDBUCH für 
IIplus, Ile, Ic, ca. 500 Seiten, 
Softcover, DM 66,- 


te-wi Verlag GmbH 


= 
Theo-Prosel-Weg 1 nl 
8000 München 40 


STATT 


Ner, 


| Apple II, Iplus 
| Einzigartige Serviceunterlage für Reparatu- 


LOGO - 


Jeder kann programmieren 


tm 4310 


eo rim 
z = = y — 


ren und Entwicklungsarbeiten am Apple Il 
Enthält Schaltpläne, Bauteile- und Ver- 


X men lgleichstypenliste; Prüfpunkte mit Oszillo- | 
| ee | grammen der Signalformen, Logiktabellen, 
at; | 
| am] 


Spannungsangaben; schnelle Servicetests; 
| Anleitung zur systematischen Fehlersuche. 
JIn A4-Mappe, DM 29,80 


| APPLE H - Bewegte 3D-Graphik 
(Phil Cohen) 
Selbstentworfene Graphiken und Dia- 
gramme — animiert oder als Standbilder — 
eben oder räumlich: alle erforderlichen 
BASIC-Programme mit Erklärung finden 
Sie in diesem Buch. 
200 Seiten, Softcover, DM 49,- 


Computer für Kinder BR 
(Sally Greenwood L.arson) APPLE | 
Ein Buch für Kinder. ihre Lehrer PRScAL 
und Eltern.  Aefrebkayieen 

| „Computer für Kinder“ richtet 

| sich an Kinder im Alter von 8 bis 

ı 13 Jahren. für deren Interesse an 
Computern dieses Buch bewußt 
geschrieben wurde, Unterhaltsam 

und leicht verständlich. Ein Handbuch für Beginner. 
A4 quer. Fadenheftung. DM 29.80 


(Daniel Watt) 
Buch des Jahres in den USA. Für die 
Computer APPLE II, C-64, IBM PC, ATAR]I 


1 bis 520 ST., TI-99 und CPC 464/664. 


Hochwertiges Textbuch für Logo-Kurse für 
zu Hause und im Lehrbereich 


| 384 Seiten, Ad, DM 59.- 


Apple Maschinensprache 
Für BASIC-Programmierer der einfachste 


‚| Zugang zur Muttersprache des Apple. Wesent- 


lich schnellere Maschinenprogramme, direkte 


\'] Manipulation des Mikroprozessors 6502 im 
Apple — als Brücke dorthin benötigt dieses 


Buch nur die drei BASIC-Befehle, POKE, 


SAAB CALL. PEEK. D. Inman/K. Inman. DM 49, — 


Erstes deutsches Referenzwerk sämt- 
licher Befehle und Systemroutinen von 
Apple Il, IIplus, Ile 

APPLE I PASCAL Ver, 
Betriebssystem, 272 S., DM 49,- 
Sprache, 216 S., DM 39,- 

Pascal 1.2 Addendum, 112 S., DM 36,— 


Grundlagenbuch, Bestseller 
APPLE II PASCAL, 

Eine praktische Anleitung, 
544 S,, DM 59,- 


Noch im Programm: 
6502 - Programmieren in Assembler DM 59,- 
VisiCalc, 50 Programme auf Diskette, DM 79,- 


In Vorbereitung: 
Macintosh Programmier-Handbuch 
mit Microsoft BASIC 2.0 DM 59,- 
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AP13 und AP 17 AP 33 
RAM-Karten zum Einsatz als Pseu- RAMDISK der neuen Generation. 
dodisk unter CP/M, USCD und Für besonders speicherintensive 
APPLE-DOS, Speichergröße von Arbeiten ist der Ausbau in Stufen 
64 kByte bis 256 kByte. von 64 kByte bis 1MByte möglich. 
Bestell-Nr,.: A 1013 a-b Bestell-Nr. A 1033 

A 1017 a-d 





AP 14 
Floppy-Controller für alle Anwen- 
dungsfälle. 10 Laufwerke können 


12-Kanal AD-DA-Wandler mit 12 bit 
Auflösung und 25 u sec Wandlungs- 


gleichzeitig angeschlossen werden. 
4 x 8" DSDD, A x 5Va" DSDD und 


zwei Apple-Standardlaufwerke. 
Maximal ca. 10MByte im Direktzu- 
griff. 


Bestell-Nr.: A 1014 





„gD* jetzt 512 K-RAM 


AP20O 

INTEMEX mit 68 000 CPU und 128 
k-RAM. Diese Karte macht aus Ihrem 
Rechner mit „Applebus” einen ech- 
ten 16 bit-Rechner. Eine Zusatzkarte 
(AP 26) ermöglicht einen Arbeitsspei- 
cher bis zu einem MByte und an Soft- 
ware gibt es einiges. 2.B. stehen drei 
Betriebssysteme und die wichtigsten 
Hochsprachen zur Verfügung. 
Bestell-Nr. A 1020 





zeit. BEingangsspannung +10 V. Ein 
schneller Wandler für extrem 
schnelle Anwendungen. 
Bestell-Nr.: A 1019 





Se 


NEU! 8 MHz Takt 


AP22 

INTEMEX mit Z 80 B-CPU und 64 
k-RAM. Wenn Sie einmal diese Karte 
in Aktion gesehen haben, werden Sie 
auch feststellen: „Geschwindigkeit 
ist keine Hexerei, man braucht nur 
die AP 22". Mit dieser Karte wird Ihr 
APPLE II zum 2.2. schnellsten CP/M- 
Computer, und in Verbindung mit 
dem SPACE 84 erhalten Sie Compu- 
terleistung, die wirklich einmalig ist. 
Wir vermitteln gerne eine Vorführung, 
Bestell-Nr. A 1022 


Das Interface-Buch von IBS, ein Buch für Alle, die Ihren APPLE I oder Kompatiblen 
optimalnutzen wollen. DetaillierteSchaltpläne, Bauteilelisten und Benutzungshinweise 
zu allen IBS-Interfaces finden Sie jetzt in einem Buch vereint. Ausführliche Abhandlun- 


welten aber auch über die Grenzen des APPLE II-Systems bestimmen den Wert dieses 


\ 
\\ . gen über Spezialschaltungen, über Anwendungsmöglichkeiten, über neue Software- 
x g g 


Buches. 


Für nur DM 8,00 erhalten Sie dieses Buch ab sofort bei Ihrem Computerfachhändler 
oder für DM 8,00 + DM 2,00 Versandkosten bei IBS COMPUTERVERTRIEB. 
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